Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

Как восстановить программу зная ее 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.013 c
15-1152450316
анка
2006-07-09 17:05
2006.08.06
Стоит ли ехать в Питер во время Саммита?


2-1153329897
HNN
2006-07-19 21:24
2006.08.06
FindDialog


15-1152012157
PVOzerski
2006-07-04 15:22
2006.08.06
Вирус или троян, воюющий с Оперой?


2-1152863390
Евгений2003
2006-07-14 11:49
2006.08.06
Как управлять USB портом через delphi?


3-1146048913
Tornado
2006-04-26 14:55
2006.08.06
Вопрос опять про Access - > MS SQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский