Zu Favoriten hinzufügen ...

[eddy]

Hallo Leute,

für Favoriten Verwalten habe ich folgende funktionierende Anweisung gefunden:

Code:

OrganizeFavorite(Handle, GetSpecialFolderPath(Handle, CSIDL_FAVORITES));

Gibt es so etwas auch für "Zu Favoriten hinzufügen ..." ??

mfg
eddy

[Alexander]

Das sollte dir helfen:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/devref/html2/dar_methods_(a)_381.asp

[Duffy]

Hallo eddy,
die drei Funktionen sollten Dir weiterhelfen.

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): string;
var
  aPidl: PItemIDList;
  fLinkDir: string;
begin
  if SUCCEEDED(SHGetSpecialFolderLocation(Application.Handle, Folder, aPidl)) then
  begin
    SetLength(fLinkDir, MAX_PATH);
    SHGetPathFromIDList(aPidl, PChar(fLinkDir));
    SetLength(fLinkDir, StrLen(PChar(fLinkDir)));
    Result := fLinkDir;
  end;
end;

Delphi-Quellcode:

function GetFavoritesFolder: string;
begin
  Result := GetSpecialFolder(CSIDL_FAVORITES);
end;

und last but not least

Delphi-Quellcode:

procedure WriteURL(FileName: TFileName; URL: string;
                   IconFile: string = ''; IconIndex: Integer = 1);
var
  FStream: TFileStream;
  Buffer: string;
begin
  FStream := TFileStream.Create(FileName, fmCreate or fmShareExclusive);

  Buffer := '[DEFAULT]' + #$0D#$0A;
  FStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));

  Buffer := 'BASEURL=' + URL + #$0D#$0A;
  FStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));

  Buffer := '[InternetShortcut]' + #$0D#$0A;
  FStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));

  Buffer := 'URL=' + URL + #$0D#$0A;
  FStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));

  if Trim(IconFile) <> '' then
  begin
    Buffer := 'IconFile=' + IconFile + #$0D#$0A;
    FStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));

    Buffer := 'IconIndex=' + IntToStr(IconIndex) + #$0D#$0A;
    FStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));
  end;

  FStream.Free;
end;

der Aufruf erfolgt dann so
WriteURL(GetFavoritesFolder + '\DP.url', 'http://www.delphipraxis.net'); und die angehängte Unit (Author unbekannt) brauchst Du.

bye

[edit=Daniel]So ganz unbekannt ist der 'Autor' der angehängten Unit doch nicht. Ich habe sie in meinem Delphi 6 wiedergefunden und sogar die Formatierung der Kommentare war identisch. Attachment aus diesem Grund entfernt. Mfg, Daniel[/edit]

[eddy]

Hallo Duffy,

funktioniert alles prima. Damit bekomme ich die Einträge auch in Unterverzeichnissse gelegt, was in meiner jetzigen Version noch nicht gelang.

Bleibt nur noch zu klären, ob es auch ein Befehl gibt, der mir genau die Funktion des IE nachzubilden erlaubt. Das heißt, ich suche eine Befehlsfolge, die mir genau dieses Fenster des IE öffnet. (Damit ich nicht alles neu erfinden muß.)

mfg
eddy

[Alexander]

Hast du dir mein Post schon mal angekuckt? Da (glaube ich ) genau das Drin

[eddy]

Hallo alexander,

ja hab' ich, aber ich erhalte nur die Information: "Page cannot be found"

Außerdem habe ich auf den Microsoft-Seiten noch nie das gefunden, was ich gesucht habe. Wahrscheinlich funktíoniert meine Logik anders.

mfg
eddy

[Duffy]

@Daniel
Hallo Daniel,
und wer ist der Autor? Ist es vielleicht Borland? ich habe da nichts gesehen und die Unit ist bei meinem Delphi nicht dabei. Sie steht auch bei mir in einenm Utility Verzeichnis. Sollte ich da Urheberrechte oder Copyright Vermerke angekratzt haben, ist das schon OK, daß Du die Unit wieder gelöscht hast.
bye

[Duffy]

@Daniel
@All
Unit ist bei Delphi dabei. Versteckt sich unter ShlObj.pas und ist von ... man glaubt es nicht ...

Delphi-Quellcode:

{*******************************************************}
{                                                       }
{       Borland Delphi Run-time Library                 }
{       Win32 API Shell objects Interface Unit          }
{                                                       }
{       Copyright (c) 1985-1999, Microsoft Corporation  }
{                                                       }
{       Translator: Borland Software Corporation        }
{                                                       }
{*******************************************************}

also man braucht sie nicht ins Netz stellen, alle, ich hoffe alle haben sie bei Delphi dabei.
bye

[Alexander]

Jepp aber nur bei Version ab (!) Proffessional
@eddy Das Forum hat die URL abgeschnitten. Hier noch mal richtig: Klick