type
TFileInfoRec = record
Surucu, Yol, Dosya, Uzanti: String;
end;
function ParseFile(AFile: String): TFileInfoRec;
begin
with Result do
begin
Surucu := ExtractFileDrive(AFile);
Yol := '\' + ExtractFilePath(ExtractRelativePath(Surucu, AFile));
Dosya := ChangeFileExt(ExtractFileName(AFile),'');
Uzanti := ExtractFileExt(AFile);
end;
end;
// functionun kullanımı
DosyaYolu := ParseFile('C:\Program Files\Ekinoks\Paket\Kur.Exe').Yol;
{DosyaYolu adında bir string tanımlayıp Fonksiyonu çağırdığınızda
'\Program Files\Ekinoks\Paket\ değerini döndürür.
Diğer bilgileride bu şekilde alabilirsiniz}