[Redefine]

\\\ :idea: /// Programım sadece bir kez çalışsın\\\ :idea: ///

Normalde kullanıcı programınızı istediği kadar çalıştırabilir veya bazı sabırsız kullanıcılar program simgesine ard arda birkaç defa tıklayıp, aynı anda birden fazla program penceresi açabilirler. Yani kullanıcı aynı anda 2-3 tane programı açabilir. Bazı durumlarda, programınızın sadece bir kez çalışmasını isteyebilirsiniz :

Ana formunuzun Public kısmında şu tanımlamayı yapın :

Atom : Word;

Ana formun OnCreate olayına aşağıdaki kodu ekleyin:

if GlobalFindAtom('PROGRAM_RUNNING') = 0 then 
  atom := GlobalAddAtom('PROGRAM_RUNNING') 
else 
begin 
  MessageDlg('Program zaten çalışıyor!', mtWarning, [mbOK], 0); 
  Halt; 
end;

ve formun OnDestroy olayına da aşağıdaki kodu ekleyin.

GlobalDeleteAtom(atom);

Hepsi bu kadar...

 

[Roland Deschain]

vay delphi uzmanından yeni paylaşımlar... harikasın

 

[belgther]

CreateMutex de kullanabilirsin.

 

[Redefine]

vay delphi uzmanından yeni paylaşımlar... harikasın

 

[Statuss]

Başkan sen delpi 7 hakkında geniş çaplı bir konu açsana.Ya da ben açıyım.

 

[Redefine]

Onunla uğraşıyorum ^^