if GlobalFindAtom('PROGRAM_RUNNING_WINTASK') = 0

[metemete]

if GlobalFindAtom('PROGRAM_RUNNING_WINTASK') = 0 then atom := GlobalAddAtom('PROGRAM_RUNNING_WINTASK')
else begin
application.messagebox(' PROGRAM ZATEN ÇALIŞIYOR ',pchar(application.exename),mb_ok);
halt;
end;

programı ctl alt delete ile sonlandırınca program zaten calısyor diyor yine
ne yapmak lazım?

[sabanakman]

Sanırım programın açık olup olmadığını kontrol işi yapmaktasınız ve o biçimde kapama işlemi de kullandığınız yöntemin bir yan etkisi olsa gerek. Bunun için verilen makaledeki 2. yönteme (FindWindow) geçmenizi öneririm.

viewtopic.php?f=19&t=20130&start=0