Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.06;
Скачать: 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 вся ветка

Текущий архив: 2005.03.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.089 c
14-1108560505
TeNY
2005-02-16 16:28
2005.03.06
Интересно,а реклама C++ на сайте посвященному Delphi это издевка?


1-1109161925
Gost
2005-02-23 15:32
2005.03.06
Можна ли сделать так..


14-1108537985
stud
2005-02-16 10:13
2005.03.06
написание ТЗ


1-1108906887
TeNY
2005-02-20 16:41
2005.03.06
Размер картики в TBitmap?


3-1107533425
Zif
2005-02-04 19:10
2005.03.06
Нужна помощь с выборкой типа DualListBox.