Das musst per IniFile machen. Die sehen ja ungefähr so aus:
Quelltext
1: 2: 3:
| [InternetShortcut] URL=http://www.microsoft.com/isapi/redir.dll?prd=ie&pver=6&ar=IStart Modified=D027E4F36C5EC2015B |
also per IniFile die Section InternetShortcut und den wert zu URL auslesen. Werde gleich gucken ob ich einen Quellcode dazu finde
// Edit: So:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| function GetUrlfromUrlFile(filename: string): string; var IniFile: TIniFile; begin IniFile := TIniFile.Create(filename); try result := IniFile.ReadString('InternetShortcut', 'Url', 'Error'); finally Inifile.free; end; end; |
Das try finally kann man wahrscheinlich auch weglassen, aber schadet ja nix. Das Error muss du durch die Adresse ersetzen die zurückgegeben werden soll falls der eintrag nicht vorhanden ist.
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.