var h: THandle;h := FindWindow(nil, '窗口标题'); SendMessage(h, WM_CLOSE, 0, 0);
var ZAppName: array[0..127] of char; Hold: String; Found: HWND; begin Hold := 'PHP'; StrPCopy(ZAppName, Hold); Found := FindWindow(nil, ZAppName); postmessage(Found,WM_Close,0,0);
h: THandle;h := FindWindow(nil, '窗口标题');
SendMessage(h, WM_CLOSE, 0, 0);
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
begin
Hold := 'PHP';
StrPCopy(ZAppName, Hold);
Found := FindWindow(nil, ZAppName);
postmessage(Found,WM_Close,0,0);