\\\ :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:
Kod:
if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
atom := GlobalAddAtom('PROGRAM_RUNNING')
else
begin
MessageDlg('Program zaten çalışıyor!', mtWarning, [mbOK], 0);
Halt;
end;
Kod:
GlobalDeleteAtom(atom);