Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi de Program Bir defa Çalışsın
#11

var
 Mutex: THandle;


function KillApp(const sCapt: PChar) : boolean;
var
 AppHandle:THandle;
 Tid, Pid: integer;
begin
 AppHandle:=FindWindow(Nil, sCapt);
 Tid := GetWindowThreadProcessid(AppHandle, @Pid);
 AppHandle := OpenProcess(PROCESS_ALL_ACCESS,False,Pid);
 TerminateProcess(AppHandle,0);
end;

begin
 Application.Initialize;
 Mutex := CreateMutex(nil , False, pchar(ExtractFileName(Application.ExeName)));
 if GetLastError = ERROR_ALREADY_EXISTS then
 begin
   if messagedlg('Açık olan programı kapatmak istiyormusunuz?', mtError, mbOKCancel, 0) = 1 then
     KillApp('Program')
   else
      ExitProcess(0);
  end;

 Application.CreateForm(TfrmMain, frmMain);
 Application.Run;
end.
Ayakkabıyı sefaletten
Çok sonraları tanıdım
Öyle ufuklarda mı olurmuş Allah'ım
Giyer giyer koşardım
Toprağın dostluğundan
Oyuncaklar yaptım çamurdan
Tenimin rengini aldım topraktan
Sen bakma esmerliğim sonradan...





Cevapla
#12
Wink 
(14-01-2022, Saat: 19:52)QuAdR Adlı Kullanıcıdan Alıntı:

var
 Mutex: THandle;


function KillApp(const sCapt: PChar) : boolean;
var
 AppHandle:THandle;
 Tid, Pid: integer;
begin
 AppHandle:=FindWindow(Nil, sCapt);
 Tid := GetWindowThreadProcessid(AppHandle, @Pid);
 AppHandle := OpenProcess(PROCESS_ALL_ACCESS,False,Pid);
 TerminateProcess(AppHandle,0);
end;

begin
 Application.Initialize;
 Mutex := CreateMutex(nil , False, pchar(ExtractFileName(Application.ExeName)));
 if GetLastError = ERROR_ALREADY_EXISTS then
 begin
   if messagedlg('Açık olan programı kapatmak istiyormusunuz?', mtError, mbOKCancel, 0) = 1 then
     KillApp('Program')
   else
      ExitProcess(0);
  end;

 Application.CreateForm(TfrmMain, frmMain);
 Application.Run;
end.

 Elinize Sağlık.. Wink
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Örnek Delphi x64 Inline Assemblier Fonksiyonları PROGRAMADOR35 11 2.291 10-08-2021, Saat: 12:46
Son Yorum: maroonka
  Delphi de ADOConnection kullanarak SQL Server' a Bağlanma Procedure nuheroglu 4 953 19-05-2021, Saat: 16:44
Son Yorum: midorun87
Thumbs Up [Delphi] Yeni Başlayanlar İçin Güzel Kaynak Halil Han BADEM 3 3.920 27-12-2020, Saat: 23:28
Son Yorum: Hayati
  Delphi Çift Yönlü Bağlı Liste Ekleme,Silme,Listeleme,Arama narkotik 0 1.385 26-11-2018, Saat: 22:05
Son Yorum: narkotik
  Delphi Bağlı Liste Ekleme,Silme,Listeleme narkotik 1 1.761 21-10-2018, Saat: 14:59
Son Yorum: sabanakman



Konuyu Okuyanlar: 1 Ziyaretçi