Gönderilme Tarihi: 10 Ara 2017 #1 MiRaT MiRaT 13 Kas 2017 2,077 Mesaj Aktiflik Seviye Deneyim TIM / GÖREV: Kod: Function Yol:String; Var I:byte S:string; Begin S:=Application.Exename; For I:=Length(S) Downto 1 Do If S[I]='\' Then Break; Yol:=Copy(S,1,I); End;
Kod: Function Yol:String; Var I:byte S:string; Begin S:=Application.Exename; For I:=Length(S) Downto 1 Do If S[I]='\' Then Break; Yol:=Copy(S,1,I); End;
