Kategori : DELPHI Okunma : 890 Acıklama : Veri tabani programlarinda alias kullanmak istemeyenler için
<DIV id=1989><PRE>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;
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.