Содержимое ярлыка

[Gr@nd]

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

[W0LF]

Я знаю как его узнать, но это экстремальный и обезбашенный вариант))
Грузишь ярлык, ну скажем в Memo, и просто парсишь ссылку, она там есть)

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...91(VS.85).aspx
http://msdn.microsoft.com/en-us/libr...50(VS.85).aspx

[maxionans]

А еще можно через MsiGetShortcutTarget + MsiGetComponentPath

[psycho-coder]

Сообщение от W0LF

Я знаю как его узнать, но это экстремальный и обезбашенный вариант))
Грузишь ярлык, ну скажем в Memo, и просто парсишь ссылку, она там есть)

Ты сначала попробуй в Memo загрузить, сильно удивишся)))

А вот как можно распарсить

Uses StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: file of Byte;
  slstart, slend: Integer;
  sym: Byte;
  str: String;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(sl, OpenDialog1.FileName);
    Reset(sl);
    SetLength(str, FileSize(sl));
    slstart := 1;
    while not Eof(sl) do
    begin
      Read(sl, sym);
      str[slstart] := Chr(sym);
      Inc(slstart);
    end;
    slstart := PosEx('DATA', str) + 5;
    slend := PosEx(#0#0, str, slstart);
    Edit1.Text := Copy(str, slstart, slend);
  end;
end;

[Altera]

Сообщение от psycho-coder

Ты сначала попробуй в Memo загрузить, сильно удивишся)))

Да, там нулевых символов много...

[uberchel]

Вот, небольшой исходник: