запуск программы один раз

[Lepricon69]

Да она этого стоит проще сказать я ее делал приблезительно месяц,
но некоторые личности хотят заниматся плагиатом
и поэтому то я придумал так сказать решение но реализация как обычно в последнии момент

[ex.cluz]

Чет замучил я вас
Вот просто держите:

procedure TForm1.FormCreate(Sender: TObject);
var
  sFileName: string;
begin
  sFileName:='c:\Windows\1.abc';
  if FileExists(sFileName) then
    Halt
  else
    FileCreate(sFileName);
end;

Разрешите узнать, что ваша программа делает?

[Lepricon69]

разрешаю))))
в принцепе это программа ювелирный каталог и есть человек который хочет ее как-бы украсть не заплатив, а это моя страховка!!
кстати спасибо

и какие надо разместить элементы на форме

[ex.cluz]

Ювелирный каталог? А зачем его защищать?
Каталоги наоборот же раздают.

[Lepricon69]

Да!!
Но работа по найму должна оплачиватся

[ex.cluz]

Так вам еще не заплатили? Тогда понятно.

[Пепел Феникса]

аккуратнее насчет C (диск)
винда то не всегда там.(у меня E)
так что ищите функцию поиска буквы диска(на форуме есть, я лично писал не так давно)

[dmitriegorovih]

попробуйте вот так

procedure TForm1.Button1Click(Sender: TObject);
var
 WndHandle: HWND;
begin
 WndHandle := FindWindow(nil, form1.caption);
 if WndHandle <> 0 then begin
   close;// закрыть
end;

end;

[SolovejK]

Поищи на форуме по ключевым словам лимит на запуск программы был 1 очень хороший пример как ограничить количество запусков программы причем вся информация хранится в exe

[artemavd]

Вот, думаю, что эта ссылка даст ответ на твой вопрос, автор