VPF::Не дать запустить 2-ую копию приложения

santilaas

Дата 23.5.2006, 05:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет

Люди добрые, выручайте!
Нужно сделать, чтобы пользователь не смог запустить вторую копию приложения
Я делаю так (по Delphi World6):
............................

Код


program aaaaa;

uses
  Forms,
  Windows,
  Main in 'Main.pas' {FMain},
  DataModule in 'DataModule.pas' {DM: TDataModule},
  Connect in 'Connect.pas' {FConnect}

{$R *.res}

var
  hwnd: THandle;

begin
  hwnd:= FindWindow('TFMain', 'FMain');
  if hwnd = 0 then
     begin
       Application.Initialize;
       Application.CreateForm(TFMain, FMain);
       Application.CreateForm(TFConnect, FConnect);
       Application.CreateForm(TDM, DM);
       Application.Run;
     end
  else
     SetForegroundWindow(hwnd)
end.

............................
- сама прога работает, но открыть можно сколько угодно exe-файлов. Что не так?

Это сообщение отредактировал(а) Snowy - 23.5.2006, 08:54

--------------------

[

Alex

Дата 23.5.2006, 06:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

http://forum.vingrad.ru/index.php?showtopi...st&p=665954

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »