VPF::Имя файла при чтении ParamStr(1) оказывается

ДЫМ

Дата 3.11.2004, 02:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 6.1.2004

Репутация: нет
Всего: 8

Подскажите еще, моя программа получает при запуске имя файла (ParamStr(1)), тип файла зарегистрирован в реестре, если щелкнуть в проводнике, то программа запускается без проблем,но если файл не находится в каталоге программы, то имя файла оказывется в формате DOS 8.3, что-то вроде C:\MYFOLDG~2\FILEPR~5.TXT
В чем дело?

p0s0l

Дата 3.11.2004, 03:08 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Можно сконвертить короткое имя в длинное:

Код


function GetLongPathNameA(lpszShortPath: LPCSTR; lpszLongPath: LPSTR;
  cchBuffer: DWORD): DWORD; stdcall; external 'kernel32.dll';

function GetLongName (const ShortName : string) : string;
const Size = 1024*1024;
var Buf : PChar;
begin
  GetMem (Buf, Size);
  GetLongPathNameA(PChar(ShortName), Buf, Size);
  Result := Buf;
  FreeMem (Buf);
end;

--------------------

С уважением, г-н Посол.

Alex

Дата 3.11.2004, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 6
Всего: 162

Код


function lfn(const ShortName: String): String;
// Возвращает ShortFileName преобразованное в соответствующее длинное имя
var
  GetLongPathName: function(lpszShortPath: PChar; lpszLongPath: PChar;
                            cchBuffer: DWORD): DWORD; stdcall;
  h: THandle;
  i: Integer;
begin
  Result:= ShortName;
  if Result = '' then Exit; // 08.05.04
  h := GetModuleHandle(kernel32);
  if h = 0 then Exit;
  @GetLongPathName := GetProcAddress(h, 'GetLongPathNameA');
  if not Assigned(GetLongPathName) then Exit;
  SetLength(Result, MAX_PATH);
  i:= GetLongPathName(PChar(ShortName), PChar(Result), Length(Result));
  if i = 0 then Exit;
  SetLength(Result, i);
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

ДЫМ

Дата 4.11.2004, 03:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 6.1.2004

Репутация: нет
Всего: 8

Спасибо, попробую.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »