[Zimir]

Как сделать что бы программа понимала когда она запустилась 1-й раз а когда 2-й?
Т.е нужно при первом запуске сделать припустим showmessage а при втором Form.Close;

Может кто компону какуюто знает ?

[Drozh]

Код:

program Program1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {frmClient};

{$R *.res}

var
 MutexHandle : THandle;
const
 MutexName = 'one_inst_demo_mutex';

begin
  MutexHandle := OpenMutex(MUTEX_ALL_ACCESS, false, MutexName);
   if MutexHandle <> 0 then
   begin
    // запуск второй версии
   end
   else
   begin
    // запуск первой версии
    MutexHandle := CreateMutex(nil, false, MutexName);
   end;

  Application.Initialize;
  Application.CreateForm(TfrmClient, frmClient);
  Application.Run;

  CloseHandle(MutexHandle);
end.

[Zimir]

Это не то . Ты не правильно понял

[:S.p.a.m.]

Всмысле не копии программы а например, запускаю первый раз программу она открывает Help файл какойнибудь (ну типа первый раз запуск), дальше юзер закрывает прогу и запускает еще раз, и на этот раз уже ничего не делается. Так?

Если да то есть 2 варианта, создать файл и в него писать инфу. Но тут есть нехороший момент: если скопировать на другую ОС то программа не заметит что там запускается тоже первый раз.

Второй способ - запись в реестре. Думаю лучше всего, т.к. отпадает обработка получилось ли записать в файл и тд. Ведь можно прогу запустить с диска, и файл уж никак не создать и не изменить на диске!

Выбирай!

[Zimir]

Почти так ! 1-й раз запускаем прогу выполняется showmessage('1-y Zapysk');
второй раз запускаем и первое действие не выполняется а выполняется чтото другое например showmessage('2-y Zapysk');

2 - й способ круче

[s0Creator]

а что она должна делать в третий раз?
или тебе нужна только двух разовая программа?

[Zimir]

то что во второй раз. То и во все следующие