Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Интересный вопрос!!!   Найти похожие ветки 

 
[ 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
6-35399
adress
2002-05-30 18:47
2002.08.12
POSTDATA = ????????????????????????????????????? ЧТО ЭТО ТАКОЕ?


3-35223
AlexA
2002-07-19 15:46
2002.08.12
Не выполняется запрос


1-35372
@andrew
2002-07-29 12:25
2002.08.12
Привет Всем!


3-35203
kalliopiy
2002-07-23 14:00
2002.08.12
Автоинкрементное поле


3-35186
kaif
2002-07-23 11:54
2002.08.12
Как настроить среду?