1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Programım sadece bir kez çalışsın


  1. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    [​IMG]

    \\\ :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;
    ve formun OnDestroy olayına da aşağıdaki kodu ekleyin.

    Kod:
    GlobalDeleteAtom(atom);
    Hepsi bu kadar...
     
  2. Roland Deschain

    Roland Deschain Öğretiyorum rank8

    Kayıt:
    28 Nisan 2007
    Mesajlar:
    690
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    Öğrenci
    Şehir:
    Gilead
    vay delphi uzmanından yeni paylaşımlar... harikasın :muck:
     
  3. belgther

    belgther Öğretiyorum rank8

    Kayıt:
    10 Mayıs 2007
    Mesajlar:
    966
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    CreateMutex de kullanabilirsin.
     
  4. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    :muck:
     
  5. Statuss

    Statuss Bilgiliyim rank8

    Kayıt:
    25 Haziran 2008
    Mesajlar:
    1.178
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    the wrong place
    Başkan sen delpi 7 hakkında geniş çaplı bir konu açsana.Ya da ben açıyım.
     
  6. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Onunla uğraşıyorum ^^