Опять про второй экземпляр приложения...

← →
RDen (2004-12-01 10:55) [0]

Здравствуйте! Не допускаю запуска второго экзэмпляра своего приложения так:
в .DPR
....
if FindWindow("TForm1","Данные по численности населения") <> 0 then
begin
SetForegroundWindow(FindWindow("TForm1","Данные по численности населения"));
Application.Terminate;
Exit;
end;
....

но в ходе работы, меняется Caption у формы, и тогда запуск второго экзэмпляра становится возможным. Как этого избежать?
Спасибо.

← →
Alexander Panov © (2004-12-01 11:00) [1]

Использовать мьютексы.
ответы есть в FAQ, полно в интернете.

Вот пример подобной функции:

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;

← →
TUser © (2004-12-01 11:01) [2]

> Как этого избежать?

Использовать мьютексы, например. Через FW тоже можно чего-нибудь придумать - например, при изменении Caption"а писать его в реестре где-нибудь. Тогда будешь искать окошко с правильным заголовком. Еще можно посоветовать изменить класс на TMainaUnikalnaGlavnaForma1 - это спасет.

← →
Думкин © (2004-12-01 11:18) [3]

aUniqueString - GUID юзать. :(

← →
Alexander Panov © (2004-12-01 11:36) [4]

Думкин © (01.12.04 11:18) [3]
aUniqueString - GUID юзать. :(

Зачем?
Весьма мала вероятность того, например, что уникальную строку, если ее задать в виде UniqueStr := Application.Title+IntToStr(Application.FormMain.Handle),
какое-то приложение будет использовать.

> [4] Alexander Panov © (01.12.04 11:36)

Мала - не мала. Тебе GUID-ов жалко? :)
Нажать Ctrl-Shift-G - гораздо проще и быстрее.

← →
RDen (2004-12-01 12:33) [6]

Огромное спасибо, очень помогли!

Опять про второй экземпляр приложения... Найти похожие ветки