Laufende Anwendung beenden

[Triples]

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 :roll:

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.

[Die Muhkuh]

Ein Timer verwenden?

[Triples]

Zitat:

Zitat von Spider

Ein Timer verwenden?

Hi das hört sich gut an ,bloß habe ich noch kein timer benutz!
Hättest du ein exampel für mich bitte wie ich ein timer adde, das er den button 1 zum beispeil nach 5 sec started und das alle 20 sec wieder versucht :mrgreen:
Währe dir sehr verbunden oder hast enen link zu einem tut/exampel!
Habe leider nur Delphi 7 pro ohne deutsche hilfe :cry:
Danke schon mal!

[Luckie]

Dann guck doch mal in der Hilfe unter TTImer. So schwer ist das nicht.

[Triples]

Zitat:

Zitat von Luckie

Dann guck doch mal in der Hilfe unter TTImer. So schwer ist das nicht.

Hi Luckie :roll:
danke habes nun geschaft :mrgreen:
Closed pls