Как получить URL адрес

← →
SvarogBarg (2005-01-21 14:58) [0]

Народ!
Подскажите как по .url ярлыку, находящемуся в Избранном получить URL-адрес
(то, что отображается при просмотре свойств файла из Избранного).
Спасибо.

← →
Style © (2005-01-21 15:32) [1]

Причем здесь WinAPI???

Совсем народ думать не хочет!

function GetUrlByUrlFile(FileName: string): string; //:) lol!
const
C_URL = "URL=";
var
i: integer;
lst: TStringList;
begin
result := "";
lst := TStringList.Create;
try
lst.LoadFromFile(FileName);
for i := 0 to Lst.Count-1 do
if (Copy(lst.Strings[i],1,Length(C_URL)) = C_URL) then
result := Copy(lst.Strings[i], Length(C_URL)+1, Length(lst.Strings[i])-Length(C_URL) );
finally
lst.Free;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetUrlByUrlFile("D:\Cassini-Huygens Home.url");
end;

Как получить URL адрес Найти похожие ветки