Скачать: CL | DM;

Как получить 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c