[Akzes]

Приветсвую всех!
пишу в OnCreate формы

Код:

1	Label.Caption := ParamStr(1);

и открываю файл с помощью своей проги
а значение, которое принимает Label.Caption
D:\MYMUSI~1\NEW_TO~1\01-VA-~1.MP3
а нужен полный путь к файлу
не могу понять в чем дело?

[Nyctos Kasignete]

Используйте функцию GetFullPathName для получения полного пути.

Код:

1 2 3 4 5 6 7

var   FullName: array[0..MAX_PATH - 1] of Char;   FNameAddr: PChar; begin   GetFullPathName(PChar(ParamStr(1)), MAX_PATH, FullName, FNameAddr);   Label.Caption := StrPas(FullName); end;

[Akzes]

спасибо, но не помогает...
все равно
D:\MYMUSI~1\NEW_TO~1\01-VA-~1.MP3

[Nyctos Kasignete]

Не знаю, нужно ли вам ещё, но вот возможное решение:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.FormCreate(Sender: TObject); var   W32FD: WIN32_FIND_DATA;   Hndl: Cardinal;   cdir: array[0..MAX_PATH - 1] of Char; begin   GetCurrentDirectory(SizeOf(cdir), cdir);   FillChar(W32FD, SizeOf(W32FD), 0);   Hndl := Windows.FindFirstFile(PChar(ParamStr(1)), W32FD);   Label1.Caption := StrPas(cdir) + '\' + StrPas(W32FD.cFileName);   Windows.FindClose(Hndl) end;

Windows SDK так и предлагает:

You can obtain the long name of a file from the short name by calling the FindFirstFile function.

[Akzes]

Nyctos Kasignete Спасибо огромное за помощь...