Не дать программе запуститься второй раз -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.220.66.151]

Модераторы: jack128, Rouse_, Krid

Не дать программе запуститься второй раз , Как создать splash screen?

Song

Сообщ. #1 , 01.12.03, 19:00

Unregistered

Измените ваш dpr файл таким образом:

Const NamedMutex='OneOnly'; // Описание вашего мьютекса

Var WND:HWND;

Function CheckInstance(Name: PChar): Integer;

Var Mutex:Integer;

Begin

Mutex:=CreateMutex(nil,True,Name);

IF GetLastError<>0 then Result:=0 else Result:=Mutex;

ReleaseMutex(Mutex);

End;

{$R *.RES}

begin

With Application Do

Begin

IF CheckInstance(NamedMutex)=0 then

{ Если наш мьютекс уже найден в системе }

Begin

{ Находим окно объекта TApplication }

WND:=Findwindow(nil,'TApplication_Name');

IF WND<>0 then

Begin

{ Восстанавливаем его }

ShowWindow(WND,SW_RESTORE);

{ Устанавливаем в качестве переднего окна }

SetForeGroundWindow(Wnd);

{ Выходим из программы, не запускем её }

Exit;

End;

Title:='TApplication_Name';

Initialize;

{ Создаём и показываем форму Splash Screen }

With TAboutForm.Create(nil) Do

try

{ Сюда вставьте создание всех форм, которые автоматически создаются

в Вашем проекте. }

CreateForm(TForm1, Form1);

{ Задержечку для "визуальности" }

Sleep(200);

finally

{ Освобождаем теперь уже ненужную сплэш форму }

Free;

end;

{ Собственно запускаем программу }

Run;

End;

end.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0160 ] [ 16 queries used ] [ Generated: 28.04.24, 16:43 GMT ]