Witam,
próbowałem zastosować zaproponowane przez Was rozwiązanie, ale albo kod nie chciał się skompilować, albo pomimo zamknięcia okna aplikacji wciąż znajdowała się ona w procesach.
Poniżej zamieszczam kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ClipBrd, StdCtrls;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
Tgo = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Tgo.Execute;
begin
sleep(5000);
// Klikniecie przycisku escape
keybd_event(VK_ESCAPE, 0, 0, 0);
keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0);
sleep(1000);
// Klikniecie przycisku enter
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
sleep(1000);
// Zamkniecie aplikacji
Application.Terminate;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Tgo.Create(false);
end;
end.