Форум: "Система";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Вниз
Интересный вопрос!!! Найти похожие ветки
← →
[ KGB ] GENERAL (2002-05-26 23:22) [0]Уважаемые мастера!!! Подскажите алгоритм или процедуру для преобразоваияя пути к файлу из WINDOWS формата в DOS
Например Windows формат c:\Мои документы\logo.bmp
Dos формат c:\моидок~1\logo.bmp
Заранее всем спасибо!!!
← →
Song (2002-05-26 23:35) [1]Например так:
function GetShortName(sLongName: string): string;
var sShortName: string;
nShortNameLen: Integer;
begin
SetLength(sShortName, MAX_PATH);
nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1);
if (0 = nShortNameLen) then
begin
// handle errors...
end;
SetLength(sShortName, nShortNameLen);
Result := sShortName;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetShortName("C:\Program Files\Delphi6\Lib\test.cnt");
// --> C:\PROGRA~1\Delphi6\Lib\test.cnt
end;
← →
Lord Warlock (2002-05-27 09:21) [2]ExtractShortPathName
← →
[ KgB ] GENERAL (2002-05-27 11:47) [3]Огромное спасибо ВАМ у меня все получилось благодаря SONGу
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c