Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Преобразование пути к файлу

Автор: Burka 30.7.2007, 10:20

Подскажите как преобразовать виндовский путь типа:

Код


c:\my documents\my program\1.exe

в досовский путь типа:

Код


c:\mydocu~1\myprog~1\1.exe

Есть какие нибудь стандартные процедуры или API?

Автор: Rennigth 30.7.2007, 11:12

Код


GetShortPathName

наверно

Автор: dumb 30.7.2007, 11:32

ExtractShortPathName

Автор: Burka 30.7.2007, 11:46

Код


procedure TForm1.Button1Click(Sender: TObject);
 Var shortname :PAnsiChar;
     lengt :cardinal;
begin

lengt:=GetShortPathName(PChar(Edit1.text),shortname,255);
Edit1.Text:=shortname;

end;

выдает что-то типа такого:

Код


S‹Ш‹ГиМ

чего я делаю не так?))

Добавлено через 3 минуты и 53 секунды
dumb, у меня ExtractShortPathName возвращает пустую строку постоянно

Автор: Rennigth 30.7.2007, 12:45

Вот так у меня нормально отработало.

Код


var
  lLongPath: PAnsiChar;
  lShortPath: Pointer;
  lSize: Integer;
begin
  lShortPath := nil;
  lLongPath := 'C:\Documents and Settings\Alexandr_bks\Мои документы\Borland Studio Projects';
  lSize := GetShortPathName(lLongPath, lShortPath, 0);
  if lSize > 0 then
  begin
    lShortPath := GetMemory(lSize);
    try
      GetShortPathName(lLongPath, PChar(lShortPath), lSize);
      Caption := PChar(lShortPath);
    finally
      FreeMemory(lShortPath);
    end;
  end;
end;

Сори за извращения с выделением памяти, но что-то без этого AV после выполнения функции лезло... :(

Автор: Alexeis 30.7.2007, 13:41

Способ плох тем что пути берет прям с харда, если хард не хранит такого пути или этот путь вообще чужой, то ничего не выйдет.
Если без изврата то так smile

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  lLongPath  : AnsiString;
  lShortPath : AnsiString;
begin
  lShortPath := '';
  SetLength(lShortPath, MAX_PATH);
  lLongPath  := 'C:\Documents and Settings\Alexeis.VOTUM\Мои документы\Алгоритмы\БПФ\fft_src';
  GetShortPathName(@lLongPath[1], @lShortPath[1], MAX_PATH);
end;

Добавлено через 3 минуты и 24 секунды
Борланд выдал еще круче smile

Код


function ExtractShortPathName(const FileName: string): string;
var
  Buffer: array[0..MAX_PATH - 1] of Char;
begin
  SetString(Result, Buffer,
    GetShortPathName(PChar(FileName), Buffer, SizeOf(Buffer)));
end;

Автор: Burka 30.7.2007, 14:18

Alexeis, теперь ясно в чем проблема, спасибо.
Пользоваться буду ExtractShortPathName )), что б совсем без извращений.