بستن همه پنجره ها

[Mask]

با سلام
چطوری باید همه پنجره های باز درون ویندوز را بست.
منظورم همشون هست . حتی اونایی که مینیمایز شدن.
با تشکر.

[merced]

حتي Windows Explorer


PostMessage(HWND_BROADCAST, WM_QUIT, 0, 0);

[mrbm_2007]

var
h: HWND;
begin
h := GetWindow(GetDesktopWindow, GW_CHILD);
while h <> 0 do
begin
h := GetWindow(h, GW_HWNDNEXT);
//check something here
CloseWindow(h);
end;
end;

البته بهتره قبل از بستن یه شرط هایی رو چک کنی
مثلا اینکه هندل برنامه ی خودت نباشه
یا اگر فقط خواستی پنجره های explore بسته شن باید چک کنی!