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

Вниз

Как восстановить программу зная ее THandle, из другой программы?   Найти похожие ветки 

 
Layner ©   (2006-07-13 14:18) [0]

Программа свернута. Знаю ее THandle. Можно ли ее максимизировать? Пробовал SetForegroundWindow(hwnd), но что то программа не окликается :(


 
Юрий Зотов ©   (2006-07-13 14:33) [1]

OpenIcon
ShowWindow


 
Layner ©   (2006-07-13 14:38) [2]

Делал
  ShowWindow(hwnd, SW_MAXIMIZE);
  SetForeGroundWindow(hwnd);
  UpdateWindow(hwnd);

и
  ShowWindow(hwnd, SW_RESTORE);
Что то ничего не понимаю, почему первый экземпляр программы восстанавливатся не хочет. На самом деле это из серии "как не запустить 2ю копию программы", хотелось бы доработь, и при запуске, 2ю программу грахать, но перед этим, востановить первую в полное окно.

Код весь такой:


program Project1;

uses
 Forms,
 Windows, // не забудьте эту строчку
 Unit1 in "Unit1.pas" {Form1};

 {$R *.RES}

var
 HM: THandle;
function Check: boolean;
begin
 HM := OpenMutex(MUTEX_ALL_ACCESS, false, "MyOwnMutex");
 Result := (HM <> 0);
 if HM = 0 then
   HM := CreateMutex(nil, false, "MyOwnMutex");
end;

begin
 if Check then
  begin
   MessageDlg("Only one copy!!!", mtWarning, [mbOk], 0);
//    ShowWindow(HM, SW_MAXIMIZE);
//   SetForeGroundWindow(HM);
//    UpdateWindow(HM);
   ShowWindow(HM, SW_RESTORE);
   Exit;
  end;
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.



 
Юрий Зотов ©   (2006-07-13 14:41) [3]

Есть подозрение, что ShowWindow требует хэндл окна, а не мьютекса.


 
GrayFace ©   (2006-07-14 00:08) [4]

:)))



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
2-1153201225
zorik
2006-07-18 09:40
2006.08.06
использование EhLib


15-1152306828
ronyn
2006-07-08 01:13
2006.08.06
загрузчик не грузит


2-1153247328
FTPDigger
2006-07-18 22:28
2006.08.06
Не менее 6-ти вопросов по FTP функциям


2-1153036383
qwe777
2006-07-16 11:53
2006.08.06
Форматнуть диск или как снести ОС


9-1132529436
Антибаг
2005-11-21 02:30
2006.08.06
Ньюсгруппа GLScene повисла что ли?