Текущий архив: 2009.06.07;
Скачать: CL | DM;

Вниз

SW_RESTORE   Найти похожие ветки 

← →
desc   (2009-04-03 16:06) [0]

     FH := FindWindow("TfmMyForm", nil);
     ShowWindow(FH, SW_RESTORE);
     SetForegroundWindow(FH);

Почему при выполнении данного кода, перестают сворачиваться форма при клике по оконной кнопке "свернуть" ... ?

---

← →
desc   (2009-04-03 16:34) [1]

Вопрос снят.

function IsRunning: Boolean;
var
 hMutex: THandle;
 hWindow, hOwner: HWND;
begin
 hMutex := OpenMutex(MUTEX_ALL_ACCESS, False, PChar("TfmMyForm"));
 Result := (hMutex <> 0);
 if hMutex = 0 then
   hMutex := CreateMutex(nil, False, PChar("TfmMyForm"))
 else
   begin
     hWindow := FindWindow(PChar("TfmMyForm"), nil);
     hOwner := GetWindow(hWindow, GW_OWNER);
     ShowWindow(hOwner, SW_SHOW);
     SetForegroundWindow(hWindow);
     UpdateWindow(hWindow);
   end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2009.06.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c