Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.138.33.87] |
|
Сообщ.
#1
,
|
|
|
Измените ваш 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; End; Title:='TApplication_Name'; Initialize; { Создаём и показываем форму Splash Screen } With TAboutForm.Create(nil) Do try { Сюда вставьте создание всех форм, которые автоматически создаются в Вашем проекте. } CreateForm(TForm1, Form1); { Задержечку для "визуальности" } Sleep(200); finally { Освобождаем теперь уже ненужную сплэш форму } Free; end; { Собственно запускаем программу } Run; End; end. Взято с собственной программы вашего покорного слуги :) Тема - элемент ЧАВО. Подготовлена by © Song |