Главная страница
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.037 c
2-1233905740
Unknown user
2009-02-06 10:35
2009.03.29
В Delphi5 не генерируются исключения в потоках?


2-1233132780
Валера
2009-01-28 11:53
2009.03.29
Перевод значения в бинарный код


2-1233326934
максмакс
2009-01-30 17:48
2009.03.29
DoubleBuffered проблемы


2-1233301130
Pavel
2009-01-30 10:38
2009.03.29
Работ с компонентом SQLQuery


2-1233595304
Flex
2009-02-02 20:21
2009.03.29
события OnUPDRead Компонента ТIdUDPServer1