Снова DOS Path

← →
AlexanderMS © (2006-05-31 16:56) [0]

Я уже задавал здесь такой вопрос: как превратить строку пути в формате DOS (7 букв + тильда ~ в каждой секции) в нормальный виндоузовский путь. Мне предложили GetLongPathName:

> function GetLongPathName(lpszShortPath, lpszLongPath: PChar;
> cchBuffer: DWORD): DWORD; stdcall; external "kernel32.dll";

- я оставил на потом, а когда попробовал осуществить - ошибка в RunTime: точка входа ... не найдена. Так и не понял. Подскажите, пожалуйста, как?

← →
Джо © (2006-05-31 17:00) [1]

GetLongPathNameA

← →
Джо © (2006-05-31 17:02) [2]

Т.е, например, так:

function GetLongPathName(lpszShortPath, lpszLongPath: PChar; cchBuffer: DWORD): DWORD; stdcall; external "kernel32.dll" name "GetLongPathNameA"

← →
AlexanderMS © (2006-05-31 18:16) [3]

Я сделал так:
procedure TWindow.FormActivate(Sender: TObject); var Longpath : PCHar; begin if (paramstr(1) <> "") and (filename = "") then begin filename := paramstr(1); GetLongPathName(PChar(filename), LongPath, 0); Filename := String(LongPath); readfile end else newfile end;

Путь нормальный, а имя файла какое-то странное: Lбi вместо generals.csf. Вот и ошибка выдаётся. Как сделать то же с именем файла?

← →
begin...end © (2006-05-31 18:22) [4]

> AlexanderMS © (31.05.06 18:16) [3]

Вы не выделили память для буфера, связанного с LongPath.

Например, так:
var
Longpath : array [0..MAX_PATH] of Char;

или выделять память динамически через GetMem и освобождать ее FreeMem, когда она уже не нужна.

Огромное спасибо! Всё получилось!

Снова DOS Path Найти похожие ветки