procedure TForm1.ButtonClick(Sender:TObject);
var
hwPrv:HWND;
begin
Application.Initialize;
hwPrv:=FindWindow('TForm1','Warrior');
if hwPrv<>0 then
begin
ShowWindow(hwPrv,10);
ShowMessage('Hey my job here it'z over!!!No you have reveald the worm.');
Application.Terminate;
end;
ShowMessage('Nope you don't have the worm');
Application.Run
end.
1 komentar:
Write komentartipu tipu...
Reply