Mega Code Archive

 

Categories / Delphi / Files

 

Uzun dosya isimlerini kısa olarak kullanmak

var Buffer : array [0..255] of char; begin GetShortPathName( 'C:\Program Files\Borland\Common Files\Bde\Bde32.hlp', @Buffer, sizeof(Buffer)); Memo1.Lines.Add(Buffer); end;