Запрет запуска второй копии программы

[JaS0n]

Доброго времени суток уважаемые форумчане!

Появилась задача, модифицировать существующее приложение.
Есть приложение работающее с базами данных, параметры подключения задаются через ini файл. Руководство желает отойти от файлов конфигов. Но при этом в окошке логина нужно выбирать БД к которой подключаться и запретить запуск второй копии приложения с такой же выбранной базой данных.

Подскажите решение или пните в сторону в которую копать. Ограничить запуск второй копии при инициализации приложения не подходит.

Всем заранее огромное человеческое спасибо!

[BLACK_RAIN]

при запуске новой копии найти главные окна всех ранее запущеных копий.. Если окна найдены, то при логине в новой спросить у них, к каким базам они подключены. Если имя одной из них совпадает с тем, что введено при логинн в новой копии - выдать ошибку. Всё просто.

[JaS0n]

Сообщение от BLACK_RAIN

при логине во второй копии, нужно искать окно первой. Если окно найдено, спросить у него, к какой базе оно подключено. Если имена совпадают - выдать ошибку во второй копии. Всё просто.

Общий принцип мне понятен, а вот как это реализовать? Пока что всё что я нашел в Гугле не помогает.
Спасибо за ответ!

[BLACK_RAIN]

Сообщение от JaS0n

Общий принцип мне понятен, а вот как это реализовать? Пока что всё что я нашел в Гугле не помогает.
Спасибо за ответ!

есть какое-то системное сообщение, которое позволяет окнам разных процессов обмениваться текстом. А какое - не помню.
загуглите "delphi передать текст другому окну", или типа того.

[Alter]

uuuuuuuuuuuuuu.dpr

program uuuuuuuuuuuuuu;

uses
Windows,
Forms;

{$R *.res}

const
srMutexName = 'ваш идентификатор. можете после запуска программы динамически создавать когда хотите свой идентификатор и проверять его существование, и в других модулях, не обязательно в *.dpr';

var
f_m :THandle;

begin
f_m := CreateMutex(nil, True, srMutexName);
if ((ERROR_ALREADY_EXISTS = GetLastError()) or
(ERROR_ACCESS_DENIED = GetLastError())) then
begin
if (0 <> f_m) then CloseHandle(f_m);
ShowMessage('Другая копия уже запущена');
end
else
try
Application.Initialize;
Application.ShowMainForm := True;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
finally
CloseHandle(f_m);
end;
end.

Еще есть Memory Mapped Files

[northener]

Сообщение от JaS0n

в окошке логина нужно выбирать БД к которой подключаться и запретить запуск второй копии приложения с такой же выбранной базой данных.

Лично я бы подумал о написании программы-оболочки, которая сама защищена от повторного запуска хоть мьютекcом как в примере Alter, хоть любым другим способом, коих в И-нете полно. А уж она при повторном запуске проверяла бы запущена ли основная программа с конкретной базой. Список баз можно хранить в обычных TList/TStringList/TCheckListBox etc.