Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Программа запускается только один раз за сессию Windows

Это нормальные люди деревья сажают, а программисты его сначала строят, а потом обходят.


procedure TForm1.FormCreate(Sender: TObject);
var
  CRLF: string;
begin
  if GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then
    GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')
  else
  begin
    CRLF := #10 + #13;
    ShowMessage('Это приложение может быть запущено только один раз за сессию Windows.' + CRLF +
    'Если будет сделана ещё одна попытка запуска, нам придётся отформатировать вам винчестер...');
    Halt;
  end;
end;

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.