Hallo...
vielen Dank für deine Hilfe.
Ich habe mich auch schon gewundert aber schließen tut er alle offenen Fenster auch so.
Delphi-Quellcode:
procedure ...
var
DeskH: HWnd;
begin
DeskH :=
handle;
while DeskH > 0
do
begin
if isWindowVisible(DeskH)
then
postmessage(DeskH, WM_SYSCOMMAND, SC_ClOSE, 0);
DeskH := getnextwindow(DeskH, GW_HWNDNEXT);
end;
Wenn ich das
Handle angebe, so wie du es gezeigt hast, funktioniert es überhaupt nicht.
ShowWindow(FindWindow(nil,'GetDesktopWindow'),SW_SHOW);
war überflüssig, wohl im Laufe des Abends übersehen.