помогите конвертировать имя файла в ДОСовское [D5, Win95/98, WinME]
Vtt © (2002-01-23 17:43:00)
Помогите конвертировать имя файла и путь к нему из Win в
ДОСовское.Т.е.:
С:\Program Files\ProgrammaOne.txt должно быть преобразованно
в нечто вроде С:\Progra~1\Progra~9.txt
Нужна процедурка либо укажите хотябы где почитать об
этом.
Romkin (2002-01-23 17:54:00) [1]
uses Windows;
var
LongPath: string;
ShortPath: string;
nSize: integer;
begin
nSize := GetShortPathName(PChar(LongPath), nil, 0);
SetLength(ShortPath, nSize);
GetShortPathName(PChar(LongPath), PChar(ShortPath), nSize);
end
Наверх 
ЧАТ |
Орешник |
|
