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

Как предотвратить н-й запуск приложения?   Найти похожие ветки 

← →
Магедон   (2007-03-02 18:24) [0]

Я написал маленький почтовый клиентик. Поставил его поумолчанию.
Когда я я кликаю где, на mailto:lkjlkj@kkjhk.jklsjd.idslkjf.cn то открывается новая копия программы.
Что нужно сделать чтобы винда передавала уже запущеной копии, а не запускала новую?

А если кто покажет какой иходник, то вооще было бы замечательно.

---

← →
Рамиль ©   (2007-03-02 18:31) [1]

Винда не передаст уже запущенной копии.
Должна передавать новая копия твоей программы и закрываться.

---

← →
YurikGL ©   (2007-03-03 00:36) [2]

http://itby.ru/content/view/2064/40/
http://read.excode.ru/art4026.html
и вообще
http://www.yandex.ru/yandsearch?rpt=rad&text=%EA%EE%EF%E8%FF+%EF%F0%E8%EB%EE%E6%E5%ED%E8%FF+delphi

---

← →
Alexdeil   (2007-03-03 17:10) [3]

Примерно так (главный модуль программы):

program proba;

uses
 Windows,
 Forms,
 main in "main.pas" {fMainb};

var
 Handle1 : LongInt;
 Handle2 : LongInt;

{$R *.RES}

begin
 Application.Initialize;
 Handle1 := FindWindow("TfMainb",nil);
 if handle1 = 0 then
 begin
 Application.CreateForm(TfMainb, fMainb);
  Application.Run;
 end
 else
 begin
   Handle2 := GetWindow(Handle1,GW_OWNER);
   //Чтоб заметили :)
   ShowWindow(Handle2,SW_HIDE);
   ShowWindow(Handle2,SW_RESTORE);
   SetForegroundWindow(Handle1); // Активизируем
 end;
end.

---

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

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



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