Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление приложением



Вернуться к списку функций
 Запрет запуска копии приложения

 Прислал: anod (Ростов - на - Дону) ( 26 апреля 2002 г. )
©  http://delphi.mastak.ru/
 Описание:
Код прописывается в dpr файле.

 Зависимости:
syncobjs, Dialogs, Windows

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Запрет запуска копии приложения

Код прописывается в dpr файле.

Зависимости: syncobjs, Dialogs, Windows
Автор:       anod, alvg@nm.ru, Ростов - на - Дону
Copyright:   http://delphi.mastak.ru/
Дата:        26 апреля 2002 г.
***************************************************************** }

program dl;

uses
  Forms,
  syncobjs,
  Dialogs,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var CheckEvent: TEvent;
  ExtendedStyle : integer;
begin
 //Check for copy of running program
 CheckEvent:= TEvent.Create( nil, false, true, 'MYPROGRAM_CHECKEXIST' );
 If CheckEvent.WaitFor( 10 ) <> wrSignaled then
  begin
   MessageDlg('Программа уже работает',mtWarning,[mbOk],0);
  end else
  begin
   Application.Initialize;
   ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
   SetWindowLong(Application.Handle, GWL_EXSTYLE,
      ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});
   Application.Title := 'Title';
   Application.CreateForm(TForm1, Form1);
   Application.ShowMainForm:=false;
   Application.Run;
  end;
//----------------------------------------
end.


Вернуться к списку функций

Наверх ▲