Hızlı Konu Açmak için tıklayınız.

Konulardaki Son Mesajlar

Forumda Reklam Vermek İçin Bize Ulaşın

JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.

DELPHI / Programin Çalistigi Klasörün Alinmasi

Fahri Üye

13 Ağustos 2014

kod:
Function Yol

tring;
Var
I:byte
S:string;
Begin
S:=Application.Exename;
For I:=Length(S) Downto 1 Do
If S='\' Then Break;
Yol:=Copy(S,1,I);
End;

Paylaş:

Toplamlar, gizli ziyaretçiler içerebilir.

Üst