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;