Hi und zwar habe ich mir ein code snipped aus dem delphi helper besorgt ,was ich dringend einbauen muß in mein simpeles test projeckt!
Es funzt auch super!
Bloß muß man ja erst den button 1 drücken, das abgefragt wird ob der Olly Shadow läüft zum beispiel!
Nun würde ich den code gerne in meine hauptform so einbauen das er ohne nen button zu drücken guck welche programme laufen und sie bendet wie in diesem code exampel!
Ich weiß nicht wie ich den code so abändern muß!
Ich hoffe es kann mir jemand bitte helfen!
Grüße euer Triples
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,TLHelp32, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function KillTask(
const AExeName:
string): boolean;
var
p: TProcessEntry32;
h: THandle;
begin
Result := false;
p.dwSize := SizeOf(p);
h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
try
if Process32First(h, p)
then
repeat
if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName)
then
Result := TerminateProcess(OpenProcess(Process_Terminate,
false,
p.th32ProcessID),
0);
until (
not Process32Next(h, p))
or Result;
finally
CloseHandle(h);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not KillTask('
Olly Shadow')
then
Showmessage('
Kein Debugger Olly Shadow Aktiv.');
end;
end.