| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вторая копия программы [D6]
O?O © (2004-08-31 10:33:00)Как просто сделать чтобы на одном компьютере нельзя было запустить больше одной копии программы одновременно?
grom (2004-08-31 13:36:00) [1]Лучше всего использовать мутексы.
O?O (2004-08-31 11:13:00) [2]> VMcL © (31.08.04 10:37) [2]
Спасибо за ссылку, воспользовался третьим из описанны способов, отлично сработало.
VMcL (2004-08-31 10:37:00) [3]FAQ: http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15
Zhekson (2004-08-31 10:36:00) [4]program Project1;
uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
hwnd: THandle;
begin
hwnd := FindWindow('TForm1', 'Form1');
if hwnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
SetForegroundWindow(hwnd)
end.
| |
