السلام عليكم
بحثت عن سورس لغلق برنامج ما في GETIONNAIRE DES TACHES فوجت هذا:
بحثت عن سورس لغلق برنامج ما في GETIONNAIRE DES TACHES فوجت هذا:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle:=FindWindow(nil, 'Delphi Help');
SendMessage(MyHandle, WM_CLOSE, 0, 0);
end;
ولاكن لا يعمل