Hallo lowF, sollte bei den meisten Fenstern klappen.
Wenn es bei manchen Anwendungen nicht will, zusätzlich mit
AttachThreadInput und oder SystemParametersInfo arbeiten.
Delphi-Quellcode:
var
hWindow: HWND;
begin
hWindow := FindWindow(nil, 'Unbenannt - Editor');
if hWindow <> 0 then begin
if IsIconic(hWindow) then ShowWindow(hWindow, SW_RESTORE);
BringWindowToTop(hWindow);
SetForegroundWindow(hWindow);
keybd_event(VK_MENU , 0, 0, 0);
keybd_event(Ord('D') , 0, 0, 0);
keybd_event(Ord('D') , 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU , 0, KEYEVENTF_KEYUP, 0);
end;
end.
lg. Astat