Как сделать, чтобы программа запускалась один раз, т.е. повторно запустить нельзя???

[Kamikadze_666]

Люди добрые помогите!!!

Как сделать, чтобы программа запускалась только один раз, т.е. повторно запустить нельзя???

Заранее спасибо!!!

[Квэнди]

Вы имеете ввиду одновременно две копии программы ?
http://pblog.ru/?p=8
в этой статье я это описывал

[Shuraken]

Или чтобы она отработала один раз и после этого не могла запуститься?

[Kamikadze_666]

Сообщение от Квэнди

Вы имеете ввиду одновременно две копии программы ?
http://pblog.ru/?p=8
в этой статье я это описывал

Именно это я имел ввиду!!! Большое спасибо!!!

[CoDeR]

Сообщение от Shuraken

Или чтобы она отработала один раз и после этого не могла запуститься?

А вот это как сделать?
И ещё чтобы отработала несколько минут и закрылась.

[KORT]

Сообщение от CoDeR

А вот это как сделать?
И ещё чтобы отработала несколько минут и закрылась.

А если поставить таймер........

[Alex21]

В реестр переменную. При FormClose меняем ее значение с "1" на "0" (например), а при FormCreate Проверяем чтобы была = 1, иначе "Sorry.."
Не сработает при Убивании процесса.

[Aleksandr]

Project- WiewSourse и там пропиши следующий код.

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   
 Exit;
//Это без изменения
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); 
 Application.Run;
end.