Oprette link i foretrukne i IE

http://www.swissdelphicenter.com/en/showcode.php?id=1094

Så skal du så bare bytte "webbrowser1.LocationURL" ud med dit link !

Snowball

kanon... det prøver jeg lige

det virker perfekt! tak

Det virker ikke på alle Winndows versioner. Nogle Gamle Win95 vil det ikke virke på. Hvis brugeren ikke har Iexplore instaleret vil det heller ikke virke ....

Hvis det har din interesse kan jeg godt lave et eks til dig det virker ALTID.

Jens B

Det havde jeg ikke lige tænkt på... Du må meget gerne lave et eks som virker altid.

Rasmus

uses
  Inifiles, ShellAPI, Registry;
procedure MakeFavorite(const Url, LinkName: string; const IconFile: string = '');
var
  IniFile: TIniFile;
  Path: string;

  function GetSpecialFolderLocation(folder: string): string;
  begin
    Result := '';
    with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);
      Result := ReadString(Folder) + #92;
    finally
      free;
    end;
  end;
begin
  Path := GetSpecialFolderLocation('Favorites');
  Path := Path + #92;

  IniFile := TIniFile.Create(Path + LinkName + '.url');
  IniFile.WriteString('DEFAULT', 'BASEURL', LinkName);
  IniFile.WriteString('InternetShortcut', 'URL', URL);

  if IconFile <> '' then
  begin
    IniFile.WriteString('InternetShortcut', 'IconFile', IconFile);
    IniFile.WriteInteger('InternetShortcut', 'IconIndex', 1);
  end;

  IniFile.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeFavorite('www.hest.org', 'Heste net');
  //Icon file kunne fx være : www.hest.org/images/favicon.ico" target="_blank">http://www.www.hest.org/images/favicon.ico
end;


Jens B

hvis du erstatter GetSpecialFolderLocation('Favorites') med
GetSpecialFolderLocation('Desktop') så vil du ligge en genvej på brugerens skrivebord !

Jens B

oki tak, men hvad er det lige der er forskellen? Jeg synes koden ligner det andet kode meget, så hvad er det der får dette til at virke i f.eks. win95?

Ja det er nok GetWindowsDirectory og GetSystemDirectory kaldende?

Forskellen er at den anden bruger en TWebbrowser

nå oki... jeg bruger nu ikke TWebbrowser, som snowball siger så har jeg bare skiftet "webbrowser1.LocationURL" ud med linket og "webbrowser1.LocationName" ud med navnet.
Men jeg kan godt lide at jeg nemt kan smide et icon med ved din version! Jeg opretter lige et spørgsmål mere så du kan få nogle points for dit arbejde (lidt credit skal du da have)

Rasmus