Создание одноэкземплярных преложений

← →
Delphimun © (2001-12-18 18:57) [0]

как создать приложение, чтобы оно посмотрело,что если оно уже запущено, то закрылось, тоесть не получилось чтобы было открыто две копии прграммы

← →
Иван Шихалев © (2001-12-18 19:00) [1]

FAQ и еще раз FAQ

Хотя бы потому, что методов много.

Файл .DPR
program MyProgramm;

uses
.........................

var
Wnd : hWnd;
clss,buff,mainS: array [0..255] of Char;
hMutex : integer;
begin
//******************** Предотвращение повторного запуска ********************
// вместо "NameProgramm" вставте свою строку
StrCopy(mainS,"NameProgramm"); SetWindowText(Application.Handle,mainS);
hMutex:=CreateMutex(nil,TRUE,"BelAZNavigator"); // Создаем семафор
if GetLastError <> 0 then // Ошибка создания - значит уже создан
begin
GetClassName(Application.Handle, clss,sizeof(clss)); // Получаем имя класса
Wnd := GetWindow(Application.Handle, gw_HWndFirst); // Получаем ссылу на окно
while Wnd <> 0 do
begin
if (Wnd<>Application.Handle)and(GetWindow(Wnd, gw_Owner)=0) then // Поиск по всем окнам
begin
GetClassName(Wnd,buff, sizeof(buff)); // Получаем класс окна
if StrComp(buff,clss)=0 then // Сравниваем с нашим классом
begin
GetWindowText(Wnd, buff, sizeof(buff)); // Полечаем текст найденного окна
if StrComp(buff,mainS)=0 then // Сравниваем с нашим окно
begin
SendMessage(Wnd,WM_SETFOCUS,Wnd,0);
ShowWindow(Wnd,SW_SHOWNORMAL);
end;
end;
end;
Wnd := GetWindow(Wnd, gw_hWndNext); // Берем следующее
end;
exit; // выход из программы не создавая формы и не запуская приложение
end;

//---------------- Вывод окна About на время запуска программы ---------------
Screen.Cursor:=crHourGlass; // курсор часиками
WinAbout:=TWinAbout.Create(Application);
WinAbout.Show;
WinAbout.Update;
//-----------------------------------------------------------------------------
try
Application.CreateForm(TDM, DM); // форма DataModul-я
Application.CreateForm(TForm1, Form1);
WinAbout.Hide; WinAbout.Free; // закрытие окна About
Screen.Cursor:=crDefault; // курсор на место
Application.Run;
except
WinAbout.Free;
end;
ReleaseMutex(hMutex)
end.

Создание одноэкземплярных преложений Найти похожие ветки