Eigenes Favoriten-Menü

[fkerber]

Hi!

Schreib das da unter implementation und schon ist der Fehler weg:

Delphi-Quellcode:

{$R *.dfm}

Ciao fkerber

[Christian S.]

:wall:

[S2B]

Vielen Dank! Das muss ich wohl ausversehen gelöscht haben bei dem vielen einfügen und ersetzen!
Gruß
S2B

[S2B]

Sorry, aber ich versteh noch was an dem Code von MathiasSimmack nicht. Wenn ich scanit ausführen will, was muss ich dann für den ersten Paramenter eingeben? :gruebel:
Wäre schön, wenn ihr mir noch kurz eine Antwort geben könntet!
Gruß
S2B

[S2B]

Es hat sich geklärt! Ich hab einfach '' eingegeben!
Nochmal danke an alle!
Gruß
S2B

[djpaull]

Ich bin auch grad dabei meine Favs zu erstellen. Habe den Code von MathiasSimmack im Beitrag #8 (Seite 1) genutzt. Habe alles soweits es ging deklariert. Nur in der Zeile

Delphi-Quellcode:

  xPath := GetSpecialFolder(CSIDL_FAVORITES);

kommt ein Fehler : nicht deklarierter Bezeichner 'GetSpecialFolder'. Habe das hier gefunden. Nur komme ich nicht weiter. Wenn ich das hier

Delphi-Quellcode:

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String; 
var 
  pMalloc: IMalloc; 
  pidl: PItemIDList; 
  Path: PChar; 
begin 
  // get IMalloc interface pointer 
  if (SHGetMalloc(pMalloc) <> S_OK) then 
  begin 
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.', 
               'SHGetMalloc(pMalloc)', 16); 
    Exit; 
  end; 

  // retrieve path 
  SHGetSpecialFolderLocation(hWindow, Folder, pidl); 
  GetMem(Path, MAX_PATH); 
  SHGetPathFromIDList(pidl, Path); 
  Result := Path; 
  FreeMem(Path); 

  // free memory allocated by SHGetSpecialFolderLocation 
  pMalloc.Free(pidl); 
end;

einbinde, sagt mir Delphi in der Zeile

Delphi-Quellcode:

  xPath := GetSpecialFolder(CSIDL_FAVORITES);

"Nicht genug wirkliche Parameter". Was habe ich vergessen?

[djpaull]

[Edit]
OOPS! Doppelpost. IE hatte nen Fehler. Musste noch mal schreiben.Sorry :oops:
[/Edit]


Bin dabei eigene Favs zu erstellen. Benutze den Code vom Beitrag #8. Habe Problem in der Zeile

Delphi-Quellcode:

  xPath := GetSpecialFolder(CSIDL_FAVORITES);

- Nicht deklarierter Bezeichener 'GetSpecialFolder'. Habe das hier gefunden. Wenn ich die Funktion

Delphi-Quellcode:

function form1.GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  Path: PChar;
begin
  // get IMalloc interface pointer
  if (SHGetMalloc(pMalloc) <> S_OK) then
  begin
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.',
               'SHGetMalloc(pMalloc)', 16);
    Exit;
  end;

  // retrieve path
  SHGetSpecialFolderLocation(hWindow, Folder, pidl);
  GetMem(Path, MAX_PATH);
  SHGetPathFromIDList(pidl, Path);
  Result := Path;
  FreeMem(Path);

  // free memory allocated by SHGetSpecialFolderLocation
  pMalloc.Free(pidl);
end;

einbinde, kommt Fehler "Nicht genug Parameter" in der Zeile mit

Delphi-Quellcode:

xPath := GetSpecialFolder(CSIDL_FAVORITES);

. Was fehlt da noch?

[toms]

Da es zum Thema passt. Der Embedded WebBrowser kommt auch mit einer Favoriten Komponente. Siehe Demo


PS: GetSpecialFolder(hWindow: HWND; Folder: Integer) hat 2 Parameter.

[djpaull]

Tja EmbeddedBrowser ist wohl offline - The site database is unavailable.

Ja, schon. Nur ich weiss nicht, was soll da noch rein bei

Delphi-Quellcode:

GetSpecialFolder(???, CSIDL_FAVORITES);

?

[taaktaak]

Moin, Moin,
na, steht da doch: HWND - also bestimmt das Handle des aufrufenden Fensters, also deines Formulars...