procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:THANDLE;
begin
hwnd:=GetForegroundWindow();
while(hwnd<>0) do
begin
hwnd:=GetWindow(hwnd,GW_HWNDNEXT);
SendMessage(handle,wm_close,0,0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:THANDLE;
begin
hwnd:=GetForegroundWindow(); //不是KingOf007(不妨醉一回)的GetForgroundWindow();
while(hwnd<>0) do
begin
hwnd:=GetForegroundWindow();
SendMessage(handle,wm_close,0,0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:THANDLE;
begin
hwnd:=GetForgroundWindow();
while(hwnd)
begin
hwnd:=GetForgroundWindow();
SendMessage(handle,wm_close,0,0);
end;
end;