ปิดหน้าต่างของโปรแกรมที่เปิดอยู่ โดยใช้ Delphi

[magicstudent]

นำเอา Code นี้ไปแปะใช้งานได้เลยนะครับ
procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
begin
  H := FindWindow(nil, 'Adobe Acrobat Pro');
  if H <> 0 then
    PostMessage(H, WM_CLOSE, 0, 0)
  else
    ShowMessage('Calculator not found');


thank you..

Diane Channers P15844 on December 19, 2005

หมายเหตุ เปลี่ยนชื่อ  Adobe Acrobat Pro เป็นหน้าต่างที่เราต้องการปิดแทนนะครับ

musicman