Копия программы

← →
RyDmi © (2004-08-19 03:36) [0]

Как сделать так, чтобы при повторном запуске моей програмы( в то время, когда она уже запущена ) запускалась не вторая копия, а становилось активным окно первой запущеной программы?

← →
Кириешки © (2004-08-19 05:08) [1]

Например вот так:

Form1.onactivate(); begin SetWindowText(application.handle,"Кириешки"); end Form1.oncreate(); begin if FindWindow(nil,"Кириешки")<>0 then begin showmessage("Программа уже запущена"); ShowWindow(findwindow(nil,"Кириешки"),SW_SHOW); halt; end; end;

Реально работает :)))

← →
Кириешки © (2004-08-19 05:37) [2]

ЗЫ.
Ну, а дальше - дело техники. Надо тебе на передний план окно вывести, можно так

procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall; external user32 Name "SwitchToThisWindow"; {x = false: Size unchanged, x = true: normal size} procedure TForm1.Button2Click(Sender: TObject); begin SwitchToThisWindow(FindWindow("Кириешкиd", nil), True); end;

А если такой вариант не устраевает - ищи в FAQ, стопудово есть.

← →
Алхимик © (2004-08-19 09:33) [3]

> [1] Кириешки © (19.08.04 05:08)

1.Не подходит для приложения, не имеющего окна.
2.Поскольку от момента запуска программы до момента создания окна проходит определенное время, которое при сильно загруженной системе может измеряться секундами, возможен запуск нескольких копий, особенно у пользователей, нервно манипулирующих мышкой. :)

← →
Игорь Шевченко © (2004-08-19 10:16) [4]

> Как сделать так, чтобы при повторном запуске моей програмы(
> в то время, когда она уже запущена ) запускалась не вторая
> копия, а становилось активным окно первой запущеной программы?

Например, FAQ почитать

← →
Anatoly Podgoretsky © (2004-08-19 13:23) [5]

А ни как, вторая копия все равно запустится, если только конечно не будешь переделывать Виндоус.

← →
Кириешки © (2004-08-19 16:15) [6]

Алхимик © (19.08.04 09:33) [3]

1)В вопросе не было указано что программа не имеет окна.
2)Не может, надо только поменять обработчики на более ранние и все. В любом случае какая-то копия запустится первой, а значит все остальные будут видить что ОКНО УЖЕ СУЩЕСТВУЕТ! Я же пробовал, и все нормально работало. Хоть изтыкайся мышкой. (правда не стеми обработчиками которые я написал, а с более ранними.)

← →
Алхимик © (2004-08-19 22:53) [7]

>[6] Кириешки © (19.08.04 16:15)

> 1)В вопросе не было указано что программа не имеет окна.

Программа, в общем случае, не обязана иметь окно.

← →
akvilon © (2004-08-19 23:03) [8]

CreateMutex
или создать секцию в экзешнике типа read write shared (общую, разделяемую всеми версиями программы). А в ней создать перменную типа boolean с начала false, первый экзепляр проверяет, если false то делаем true. Остальные экземпляры видя true делают, что надо.

To akvilon: Делал так:

program Alpha; uses Forms,Windows, Unit1 in "Unit1.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}; {$R *.res} var Mutex : THandle; begin Mutex := CreateMutex(nil, False, "Alpha"); if Mutex = 0 then MessageBox(0,"Невозможно создать Мутекс!", "Ошибка!", MB_OK) else if GetLastError <> ERROR_ALREADY_EXISTS then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end; end.

Вторая копия не запускалась, Но как мне сделать так, чтобы окно становилось активным или, например, как в Winamp"e передавались параметры командной строки( когда добавляешь песню при запущеном плеере через PopupMenu командера, песня добавляется в список уже запущенного проигрывателя, а вторая копия уже не запускается). Как мне это осуществить?

Если менять чисто твой код, то:
program Alpha; uses Forms,Windows, Unit1 in "Unit1.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}; {$R *.res} var Mutex : THandle; begin Mutex := CreateMutex(nil, False, "Alpha"); if Mutex = 0 then MessageBox(0,"Невозможно создать Мутекс!", "Ошибка!", MB_OK) else begin if GetLastError <> ERROR_ALREADY_EXISTS then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end else begin ПослатьСообщениеОкнуИлиДругимСпособом; end; end; end.
Нечто вроде этого...

---
...Death Is Only The Begining...

> окно становилось активным

SetForegroundWindow переводит окно в приоритетный режим

> передавались параметры командной строки

ParamCount
ParamStr

> Mutex := CreateMutex(nil, False, "Alpha");

Не называй мутекс Альфой. Во всех примерах его так называют. :)
Есть смысл что нить поуникальнее.

Спасибо всем, попробую разобраться.

Копия программы Найти похожие ветки