Delphi Fonksiyonu: GetFileShortName

Kısa dosya adını bulan fonksiyon.

function GetFileShortName(const aFile: string): string;
var
  aTmp: array[0..255] of char;
begin
  if GetShortPathName(pChar(aFile),aTmp,Sizeof(aTmp)-1)=0 then
    Result:=aFile
  else
   Result:=StrPas(aTmp);
end;

13.11.2008 10:38:47

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :