Сворачивание окон

← →
Dimich1978 © (2003-09-05 12:39) [0]

Код следующий
function My_EnumWindowsProc(hWnd:hwnd;param:LPARAM):BOOL;stdcall;
begin
if hwnd<>Form1.handle then //если не мое окно то свернуть
if IsWindowVisible(hWnd) then CloseWindow(hWnd);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@My_EnumWindowsProc,0);
end;
Сворачиваются все окна в том числе и мое.
окно BS:=bsSingle;
Как бороться, чтобы мое окно все же не свернулось

← →
Song © (2003-09-05 12:44) [1]

У тебя много может быть окон.
1) Окно TApplication
2) В общем случае все формы.

Сворачивание окон Найти похожие ветки