[T-dayne]

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

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

"С:\file.txt"

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

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

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

[guranvir]

А вобще то вот такой путь попробуй C:\Users\User\Desktop\имя_файла. Просто вся фишка в том, что в папке Users хранится и папка рабочего.Ищещь папку внутри с именем юзера и там папку Desktop

[guranvir]

Вот кодес с другого форума, из этой переменной окружения и адрес рабочего стала получите:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
SetLength(s, 1000);
windows.GetEnvironmentVariable('USERPROFILE',pchar(S),length(s));
caption:=s;
end;

[T-dayne]

Понимаете, неизвестно что передастся в эту функцию. Мне скорее нужно написать отдельную функцию, которая преобразует эти виндовые сокращенные адреса в полноценные.

[guranvir]

А можете конкретней задачу описать?

[T-dayne]

Я же писал. Знаете когда файл открывается с помощью какой-то одной программы? Вот у меня также, есть спец. расширение файла, которое понимает только моя утилита, пользователь щелкает на файл, и открывается приложение, которому передается имя открытого файла. Вот это самое имя(точнее путь к нему), зачастую имеет сокращенный виндовый вид, а мне нужно получить полный.

[guranvir]

Похоже Вы правы Придется отдельно писаь