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

Вниз

Как из сокращённого пути сделать полный?   Найти похожие ветки 

 
rolex   (2005-06-08 20:39) [0]

К примеру имеется адрес C:\DOCUM~1\..., как его преобразовать в полный?


 
EVD ©   (2005-06-08 20:58) [1]

GetLongPathName + F1


 
Alx2 ©   (2005-06-08 20:59) [2]

GetFullPathName?


 
Юрий Зотов ©   (2005-06-08 21:07) [3]


function GetLongPathName(lpszShortName: LPCTSTR;
 lpszLongName: LPTSTR; cchBuffer: DWORD): DWORD; stdcall;
 external kernel32 name "GetLongPathNameA";

function ShortPathToLongPath(const ShortPath: string): string;
var
 Buff: packed array[0..MAX_PATH] of char;
begin
 SetString(Result, Buff, GetLongPathName(PChar(ShortPath), Buff, SizeOf(Buff)))
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Caption := ShortPathToLongPath("C:\Progra~1\Common~1\Borlan~1\MSHelp\Win32.hlp")
end;


 
rolex   (2005-06-08 21:17) [4]

спасибо!


 
Alx2 ©   (2005-06-08 21:36) [5]

>Юрий Зотов ©   (08.06.05 21:07)

>GetLongPathName

О ней почему-то нет информации в Windows SDK (идущем в комлекте с D6). Интересно, есть причины? Или я не там ищу?


 
Юрий Зотов ©   (2005-06-08 21:57) [6]

> Alx2 ©   (08.06.05 21:36) [5]

Возраст SDK из комплекта Delphi - 100 лет в обед, там многого нет. А GetLongPathName появилась начиная с Win98. Она даже в Delphi 7 не декларирована (кстати, непонятно почему - внутри VCL она используется). Поэтому я и привел ее декларацию здесь.

Юзайте свежие выпуски MSDN - они рулез. А SDK из комплекта Delphi - это так, вспомогательный инструмент для быстрой справки по базовым, давно устоявшимся вещам.



Страницы: 1 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
3-1116587396
tyo
2005-05-20 15:09
2005.06.29
EConvertError в TDBGrid


14-1117778235
Layner
2005-06-03 09:57
2005.06.29
Документы нового Office: Microsoft откроет форматы


1-1118082204
Serg!!!!!!!!!!!
2005-06-06 22:23
2005.06.29
Редактирование


1-1117524040
BKV
2005-05-31 11:20
2005.06.29
Приложение в сервис.


1-1117918546
Pasha L
2005-06-05 00:55
2005.06.29
findFirst и findNext