arkadaşım şimdi bunlar delphide yazdığın programı exe ye derlediğin zaman programın ne kadar çalıştırılmak için tıklanırsa tıklansın yanlızca birlez çalışması için. bunu projenin kodlarının içindeki implementation bölümüne atıp istediğin bir yordamdan adı ile çağırabiliyorsun. yani delphide uygulama geliştiricileri için bir yardımcı kod diyebilirim. normal derlenmiş bir exe için birşey yapamıyoruz. saygılar.

şunun için bir trojan yapıyorsun diyelim.trojana adam birkez tıkladı.trojanın tabiki formu yok adam tekrar tıkladı tekrar tekrar onlarca kez tıkladı. adamın pc de birçok server açılacağı için port çakışması yüzünden hepsi birden dibi boylar. senin programı yanlızca birlez çalıştırtman gerek. ama adam program açılmadı diyerek birçok kez tıklar. solucan spy keylogger trojan yazımlarında mutlaka bu veya türevi bir procedure kullanılmalıdır.

ben birsey anlamadım

adamlar niye birkez çalıştırmak istesin birde o var!!?

Logic cevabın ve beni aydınlattın için çok saol

abi tam olarak nein kodu bunlar ben pek anlamadım biraz daha detaylı anlatabilirmisin

procedure EnsureSingleInstance; var Wnd: HWnd; WndClass, WndText: array of char; begin if (CreateSemaphore(nil, 0, 1, PChar(ExtractFileName <> 0) and then if HPrevInst <> 0 then begin Wnd := GetWindow ; while Wnd <> 0 do begin if Wnd <> Application. Handle then begin GetClassName(Wnd, WndClass, Pred(SizeOf ; GetWindowText(Wnd, WndText, Succ(Length ; if (StrPas = Application. ClassName) and (StrPas = Application. Title) then begin PostMessage(Wnd, wm_SysCommand, sc_Restore, 0); SetForegroundWindow ; BringWindowToTop ; Halt end end; Wnd := GetWindow end end end; Arkadaşlar biliyoruz ki programı bir exede den birkaç kez çalıştırabiliyoruz. yukarıdaki procedure bunun önlemi için yazılmış implementation bölümünün hemen altına kopyalayıp. istediğini bir yordam içinden EnsureSingleInstance; yazarak çalıştırabilirsiniz. Dikkat: exe dosya ismi değişince yeninden çalışıyor. By Logic