Скачать: CL | DM;

Повторный запуск приложения.   Найти похожие ветки 

← →
Ш-К   (2003-07-04 16:55) [0]

Ткните плз в раздел FAQ в инете, где описана сетуация не запуска второй копии приложения.

---

← →
MBo ©   (2003-07-04 17:20) [1]

в здешний FAQ ткнуть?

---

← →
Darrin ©   (2003-07-04 17:39) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15

---

← →
Ш-К   (2003-07-04 17:39) [3]

Если есть в здешнем, покажи где?

---

← →
Ш-К   (2003-07-04 17:44) [4]

Спасибо.
Связь 9600 и падает все время. Самому никогда не найти.

---

← →
panov ©   (2003-07-04 18:20) [5]

function isRunning(aUniqueString:String): Boolean;
var
hMutex: THandle;
begin
Result := False;
hMutex := CreateMutex(nil,False,PChar(aUniqueString));
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Result := True;
CloseHandle(hMutex);
end;
end;


program Samle;

uses
Sharemem,
Forms,
ufMain in "ufMain.pas" {fMain},
proc in "dll\proc.pas";

{$R *.RES}

begin
proc.LoadLib;
if proc.isRunning("Пример использования библиотеки.") then Exit;
proc.UnLoadLib;
Application.Initialize;
Application.CreateForm(TfMain, fMain);
Application.Run;
end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c