| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

(повторный запуск приложения) - Stack Overflow в вин98 [D6, Win95/98, Win2k]

Mozart ©   (2004-06-18 02:09:00) 

Использовал ниже написанный код для отлова повторного запуска моего приложения:

Var
Wnd : hWnd;
buff : ARRAY[0.. 127] OF Char;
begin

Begin
Wnd := GetWindow(Handle, gw_HWndFirst);

WHILE Wnd>0 DO
BEGIN
 IF (Wnd<>Application.Handle) AND (GetWindow(Wnd, gw_Owner) = 0)  THEN
 BEGIN
  GetWindowText (Wnd, buff, sizeof (buff ));
  IF StrPas (buff) = Application.Title THEN
  BEGIN
   MessageBox(Handle,'Приложение уже запущено', 'Обучающая программа', mb_Ok);
   Halt;
  END;
 END;
 Wnd := GetWindow (Wnd, gw_hWndNext);

END;
End;

в 2000 все без особых проблем, в 98 при толькосамом первом запуске выдает ошибку -Stack Overflow, потом стндартное окошко с ошибкой в ComCtl32.dll ...
при повторных запусках - такой ошибки не возникает, ...
только после перезагрузки...

---

grom   (2004-06-18 11:34:00) [1]

program Open;

uses
 Forms,
 Windows,
 Main in 'Main.pas' {Form1};

{$R *.RES}

var HM: THandle;
function Check: boolean;
begin
 HM :=OpenMutex(MUTEX_ALL_ACCESS,false,'060304');
 Result := (HM 0);
 if HM=0then HM:=CreateMutex(nil,false,'060304');
end;

begin if Check then begin
 Application.MessageBox('Ïðîãðàììà ÓÆÅ çàïóùåíà !!!  ',' " Open "',MB_ICONEXCLAMATION);
 Exit;
end;
// Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.
я делаю так

---

Mim1   (2004-06-18 03:33:00) [2]

В faq'е приведены болле надежные способы определения второго запуска.
В вашем случае можно заменить всю эту цепочку на findwindow до присвоения application.title.
В вашем коде нет заметных ошибок за исключением отсутствия проверки правильности выполнения GetWindowText. Второй параметр передается не как @buff а просто buff, что тоже подозрительно. Для выхода лучше не создавать окон и не выполнять application.run нежели halt. При проверке StrPasне нужна так как delphi сама замечательно кастует масив символов к строке.
Если не тяжело вриведите полный код dpr файла.
+ сделайте запись отладочного лога в файл и поределите в каком месте происходит ошибка (если в отладчике delphi этого определить невозможно).

---

Наверх