| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Интересный вопрос!!!

[ KGB ] GENERAL ©   (2002-05-26 23:22:00) 

Уважаемые мастера!!! Подскажите алгоритм или процедуру для преобразоваияя пути к файлу из WINDOWS формата в DOS
Например Windows формат c:\Мои документы\logo.bmp
Dos формат c:\моидок~1\logo.bmp
Заранее всем спасибо!!!

---

[ KgB ] GENERAL   (2002-05-27 11:47:00) [1]

Огромное спасибо ВАМ у меня все получилось благодаря SONGу

---

Lord Warlock   (2002-05-27 09:21:00) [2]

ExtractShortPathName

---

Song   (2002-05-26 23:35:00) [3]

Например так:

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;


---

Наверх