Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.03.29;
Скачать: CL | DM;

Вниз

активизация окна   Найти похожие ветки 

 
workbench   (2009-01-29 12:10) [0]

Здравствуйте, пытаюсь предотвратить повторный запуск приложения, делаю так (в dpr файле):


const
 MutexName = "{8A72D2DC-AF40-42B3-8706-AAB06B6B5B30}";

var hMutex, hWin: THandle;

begin

 hMutex := CreateMutex(nil, false, PChar(MutexName));
 if GetLastError = ERROR_ALREADY_EXISTS then
   begin
   hWin := FindWindow(PChar("TfrmMain"), nil);
   if hWin <> 0 then
     begin
     OpenIcon(hWin); ShowWindow(hWin, SW_SHOW);
     SetForegroundWindow(hWin)
     end
   end
 else // запуск


проблема в том что если моё окно было свёрнуто то при открытии окошка ф-й ShowWindow оно почему отказывается сворачиваться, может флаг какой добавить нано? OpenIcon как видно не помогает...


 
Ega23 ©   (2009-01-29 13:08) [1]

SetForegroundWindow(hWin)
?


 
workbench   (2009-01-29 13:16) [2]


> Ega23 ©


SetForegroundWindow работает если окошко раскрыто, если оно свёрнуто, он его сам не разворачивает


 
clickmaker ©   (2009-01-29 13:52) [3]

if IsIconic(hWin) then ShowWindow(hWin, SW_RESTORE);



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
2-1233576454
MaxX
2009-02-02 15:07
2009.03.29
Отключить событие OnChange


6-1196111615
Lamer666
2007-11-27 00:13
2009.03.29
TWebBrowser и предупреждения системы безопастности??


15-1232942877
Дмитрий С
2009-01-26 07:07
2009.03.29
Номер версии в InnoSetup


15-1232703880
123-ий
2009-01-23 12:44
2009.03.29
Шестисотая БМВ


15-1232392090
AlexDan
2009-01-19 22:08
2009.03.29
Новая домашняя страничка ).