2defa Çalışan Program ?

[alyamus]

Sayın hocalarım ve arkadaşlarım ben programımın ayrı ayrı çalışmasını istemiyorum internette araştırdım hep 1 defa çalıssın makaleleri var benım demek ıstedıgım program çalışırken gene tıklandıgınd aktıf olan kapansın tıkladıgım acılsın ornegın: resım goruntuledıgımısı dusunelım jpg yada png ,gif jpg adlı resmı onızlemedeyken x.gif yada x.jpg adlı resme tıkladıgımda o ankı resım exesı kapansın x.jp goruntulensın yanı ayrı yarı calısmasın tek bır program calıssın bunu nerden nasıl baslayarak yapabılırım hangı kodu kullanacam yardımlarınızı beklıyorum

[SimaWB]

Bunun birçok yolu var. İlk aklıma gelen;
Projenin dpr uzantılı dosyası içinde program Initialize edilmeden önce FindWindow ile aynı program çalışıyorsa Handle'ını alabilirsin. Ve bu Handle sayesinde öncekine "kapat" mesajı gönderebilirsin:

Kod: Tümünü seç

uses
   Windows, Messages;
var
  aHandle: HWND;
begin
  aHandle := FindWindow('TForm3', nil);//TForm3 yerine senin ana formunun classname'i ne ise onu yazmalısın.
  if aHandle > 0 then
    SendMessage(aHandle, WM_CLOSE, 0, 0);
    
  Application.Initialize;
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

[alyamus]

Hocam cok tesekkurederım super oldu tamda ıstedıgım seydı tekrar cok tesekkurler.