Преобразовать путь файла из старого формата

[T-dayne]

Снова здрасте:D

В функцию paramstr(1) передается путь к файлу при открытии программы. Так вот, если я открываю его, например, на диске C, то путь такой:

"С:\file.txt"

, а вот если на рабочем столе, то передается это:

C:\DOCUME~1\Admin\0016~1\8636~1.TXT

Естественно такой путь дельфи не воспринимает, и загрузить файл например в Memo, невозможно. Как можно получить полный путь?
По идее просто нужна функция которая переведет формат пути в новый формат

спасибо

[fbus]

вопрос интересный. попробуй

var path:string;
Path:=ExtractFilePath(paramstr(1));

[Grag]

Сообщение от T-dayne

а вот если на рабочем столе

На рабочем столе находится ссылка на объект, а вот путь к этому объекту можно узнать из свойтсв этой ссылки (см. Свойства-->Ярлык-->Объект. Тут тебе и будет путь к объекту).

Преобразование пути из короткой формы в длинную

function ChortToLong(path:string):string;
var
  buf:string;
  len:integer;
begin
  SetLength(buf,MAX_PATH);
 len:=GetLongPathName(PAnsiChar(path),PAnsiChar(buf),MAX_PATH);
 SetLength(buf,len);
ShortToLong:=buf
end;

[T-dayne]

fbus извлекается путь из данного адреса, т.е.:

C:\DOCUME~1\Admin\0016~1\

(

Grag
Функция не компилируется ругается на

[Error] Undeclared identifier: 'GetLongPathName'

ShellAPI в Uses не помогает.(

[Grag]

Сообщение от T-dayne

Grag
ShellAPI в Uses не помогает.(

API-функция GetLongPathName объявлена в модуле Windows... По крайней мере в Delphi 7...

[T-dayne]

Нет там такой. Только что проверил. У меня делфи 7.

[Grag]

Ну, тогда остается импортировать эту функцию из библиотеки kernel32.
Вот тебе код модуля, компилируется без ошибок...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }




  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function GetLongPathName(lpszLongPath:PChar;lpszShortPath:PChar;
               cchBuffer:DWORD):DWORD;
                             stdcall; external kernel32 name 'GetLongPathNameA';

function ShortToLong(path:string):string;
var
  buf:string;
  len:dword;
begin
  SetLength(buf,MAX_PATH);
  len:=GetLongPathName(PAnsiChar(path),PAnsiChar(buf),MAX_PATH);
 SetLength(buf,len);
ShortToLong:=buf
end;



end.

[T-dayne]

Grag
Спасибо, ++