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

← →
Ш-К (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 и падает все время. Самому никогда не найти.

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.

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