Искал как это сделать и находил всегда длиннющие решения, в которых не мог разобраться и которые еще к тому же и не работали почему-то. Сегодня сделал так:

это код dpr.

Код

program Project1; uses   Forms, Windows,   Unit1 in 'Unit1.pas' {AppId0071}, var   PrevAppCopy: HWND; {$R *.res} begin   PrevAppCopy := FindWindow('TAppId0071', nil);   if PrevAppCopy <> 0 then   begin   SetForegroundWindow(PrevAppCopy);   Application.Terminate;   Exit;   end;   Application.Initialize;   Application.Title := 'Project1';   Application.CreateForm(TAppId0071, AppId0071);   Application.Run; end.

AppId0071 - это имя главной формы,
TAppId071 - это имя класса. Работает так: ищем окно с именем класса как у нашей проги и если находим то показываем его и делам Terminate текущей копии. Код этот работает, глюков не нашел. Надо только чтобы имя класса было уникальным и не совпало с каким-нибудь другим приложением.

Вопрос у меня такой. Есть ли здесь какое-нибудь слабое место. Почему всегда предлагают какие-то длинные решения этой задачи, может я что-то не то сделал.

instumental ну как минимум:
1. может у другого приложения совпасть имя формы=)
2. возможно твое приложение в рантайме создает форму и в момент проверки оно небыло создано

Цитата(instumental @ 8.1.2006, 17:16 )

Искал как это сделать и находил всегда длиннющие решения, в которых не мог разобраться и которые еще к тому же и не работали почему-то.

Плохо искал http://forum.vingrad.ru/index.php?showtopic=56734

Цитата(z-END @ 8.1.2006, 18:26 )

instumental ну как минимум: 1. может у другого приложения совпасть имя формы=) 2. возможно твое приложение в рантайме создает форму и в момент проверки оно небыло создано

1. Конечно может совпасть. Но вероятность этого очень мала. Надо назвать позаковыристее и все.
Неприятность я заметил одну. Делфи создает форму с тем же именем. Поэтому при работающей делфи прога не запускается и считает что она уже работает, т.к. находит форму созданную delphi.
2. Не совсем понял. Ищем же главную форму приложения.

Цитата(Poseidon @ 8.1.2006, 19:07 )

Цитата(instumental @ 8.1.2006, 17:16 ) Искал как это сделать и находил всегда длиннющие решения, в которых не мог разобраться и которые еще к тому же и не работали почему-то. Плохо искал  http://forum.vingrad.ru/index.php?showtopic=56734

Спасибо за ссылку. Я вообще-то не здесь искал (не на этом форуме). Находил такое что мамадарагая. Уже отчаился найти.

А вот мой вареант оцените.

Код

unit Unit1; . . uses.........., Unit2......; . . var  A: Boolean;   Form1: TForm1; . . procedure TForm1.N7Click(Sender: TObject); begin   if A=false then   begin   Application.CreateForm(TForm2, Form2);   Form2.Show;   Form2.FreeOnRelease;   A:=true;   end   else   begin   Exit;   end; end;

Код

unit Unit2; . . implementation uses Unit1; {$R *.dfm} . . procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin A:=false; end; end.

Пеерменная A не распространяется на всю систему. В другой программе её не будет видно.
Самый лучший способ это послать WM сообщения всем окнам и если прийдет ответ то завершить себя. Иначе работать дальше.

Delphins
это он наверно проверку на форму2 делал...

Этот код для отдельно взятого окна.

А если надо для других то можно повторить этуже операчию только здругими переменными и другими Unit, главное что это работае и копия окна неоткроется пока переменная А имеет значение true.

А поповоду "послать WM сообщения всем окнам" можеш поподробнее раскозать ато и вправду лучше будет.

Создай мьютекс с явно уникальным именем. Если вернется ошибка already_exist - это дубликат. В отличие от атома и семафора он гарантированно умрет в момент выгрузки приложения.

Способ с сообщением вообще не универсален - приложение может быть настолько занято собой, что прозевает мессагу.

Цитата(ivan219 @ 8.1.2006, 23:55 )

Этот код для отдельно взятого окна. А если надо для других то можно повторить этуже операчию только здругими переменными и другими Unit, главное что это работае и копия окна неоткроется пока переменная А имеет значение true.

проще:

Код

... procedure TForm1.N7Click(Sender: TObject);     begin if Form2<>nil then    begin    MessageDlg('Форма уже существует',mtWarning,[mbOk],0);    end    else    begin    Application.CreateForm(TForm2, Form2);        Form2.Show;    Form2.Update;    end; end; ... procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);     begin     Form2.Free;     end;

Это сообщение отредактировал(а) Albinos_x - 9.1.2006, 00:33

Да немного проще но после закрытия её незльзя болше открыть а сообшение осталось.

Вот ещё вареант.

Первая форма

Код

... procedure TForm1.N7Click(Sender: TObject); begin if not Assigned(Form2) then  begin  Form2 := TForm2.Create(Application);  Form2.Show;  end  else  begin  MessageDlg('Форма уже существует',mtWarning,[mbOk],0);  end; end; ...

Вторая форма

Код

... procedure TForm2.FormDestroy(Sender: TObject); begin Form2 := nil; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := CaFree; end; ...

Это сообщение отредактировал(а) ivan219 - 9.1.2006, 03:16

Я что-то не пойму, нужно запретить запуск прогаммы или формы? Если формы, то зачем такие извращения, если по Show и ShowModal больше одной копии формы и так не откроется?

А что, так нельзя?:

Код

program ANV; uses   Forms,   Windows,   Dialogs,   Main in 'Main.pas' {MainForm}; const    MEM_F_S = 1024;   MEM_F_N = 'BU'; //Здесь любое имя можешь написать. var   MemHnd : HWND; {$R *.res} begin   MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, MEM_FILE_S, MEM_FILE_N);   if GetLastError <> ERROR_ALREADY_EXISTS then begin     Application.Initialize;     Application.Title := 'Thenoid';     Application.CreateForm(TMainForm, MainForm);     Application.Run;   end else MessageDlg('Приложение уже в рантайме!!!', mtError, [mbOk], 0);   CloseHandle(MemHnd); end.

Если для формы то нафига столько кода?
Она не откроется вторая. Конечно если вы её не создаёте в RunTime.

Самый просто способ это сообщения WM.

Как для программы так и для отдельных форм.

Код

const   wm_mymsg = WM_USER+66; //--------- procedure WM_MYAPPEXIST( {Че тут не помню... :(( wmparam1 и wmparam2 чтоли.} ); message wm_mymsg;

а потом процдуру обрабатывать. Сообщение обработается всегда. Кроме случаев когда оно зависло.
Сообщения ставятся в очеред на обработку.
Отсылааются они вроде как через SendMessage.
Неогу сказать точно потому, что Delphi перестал запускаться.

Я в одной из своих прог использовал следующий механизм:
При запуске программа пишет куда-либо (в файл или реестр) свой PID. Перед записью из того же места считывается PID предыдущей копии программы и выполняется TerminateProcess.
2 нюанса:
- мне нужно было именно перезапускать прогу (убивать старую версию) в случае повторного запуска;
- есть небольшой шанс, что убьешь левый процесс (в случае, если предыдущая версия проги завершилась и был запущен процесс с тем же PID).