programın bir sefer çalışması

bilmusa · Mesaj gönderen **bilmusa** » 15 Eyl 2004 02:36

programı bir sefer çalışmasını sağlamak için ne yapamalıyız

Mesaj gönderen **mege** » 15 Eyl 2004 02:40

recepgalip · Mesaj gönderen **recepgalip** » 16 Eyl 2004 12:27

var
Kontrol:THandle;
begin
Kontrol:=FindWindow('TForm20','Çalış');
if Kontrol<>0 then halt;
Application.Initialize;
Application.Title := 'KarMed';
Application.CreateForm(TForm20, Form20);
Application.Run;
end.

Mesaj gönderen **mussimsek** » 17 Eyl 2004 12:54

@Programcı bu yöntemi ben de kullanıyordum ama bunun bir bug'ı var. Eskazara program crash olursa veya kullanıcı Ctrl + Alt + Delete ile programı kapatırsa, atom silinmediği için restart yapana kadar programı çalıştıramaz.

Artık FindWindow yçntemini kullanıyorum.

Kolay gelsin.

Muhendiker · Mesaj gönderen **Muhendiker** » 06 Şub 2008 09:16

@mussimsek hocam diğer ipuçları bölümüne FindWindow yöntemini de ekliyebilirmisiniz.

http://www.delphiturkiye.com/ipdiger.htm#sadece_bir_kez

Mesaj gönderen **sabanakman** » 07 Şub 2008 10:52

Bir tane de benden

viewtopic.php?t=20130