[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]

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

[PhoeniX]

Это ж какая винда передаёт адреса в дос-формате? Начиная с 2000, все виндовсы возвращают нормальный человеческий адрес...

[T-dayne]

DJ PhoeniX
XP передает такой адрес, есть какие-либо пути решения?

[PhoeniX]

Странно... на всей моей памяти программирования, такое было только при запуске в 98 и более низких...

Погугли, я 100% видел функцию преобразования, но где - хоть убей, не помню. Я тож поищу - найду - отпишу.

П.С. это не для конкурса ли моего тебе по ассоциации надо текстовый файл открыть?

[PhoeniX]

Нашёл обратную функцию.

Код:

function ShortPathName(const path: String): string;
var
  s: String;
begin
  Setlength(s, 255);
  if GetShortPathName(path, PChar(s), 255) = 0 then
    { Function failed; maybe the path doesn't exist }
    Result := ''
  else
    Result := Trim(s);
end;

Но эксперимент показал, что помимо GetShortPathName есть и GetFullPathName. Надеюсь, с заменой пяти символов справишься?

[T-dayne]

П.С. это не для конкурса ли моего тебе по ассоциации надо текстовый файл открыть?

спалил Осталось реализовать только эту мелочь, софт то готов

[guranvir]

Вот тебе статейка с функой) Но она NT http://eretik.omegahg.com/art/04.html