Methode 3 funst leider nicht, Programm blinkt nur blöd in der Taskleiste.
unit MyWindows;
{$ALIGN ON}
{$MINENUMSIZE 4}
{$WEAKPACKAGEUNIT}
interface
uses Windows;
{$EXTERNALSYM SwitchToThisWindow}
function SwitchToThisWindow(hWnd: HWND; bRestore:BOOL): BOOL; stdcall;
{bRestore = false: Size unchanged, bRestore = true: normal size}
implementation
function SwitchToThisWindow; external user32 name 'SwitchToThisWindow';
end.
Probiere jetzt Methode 2