Eigenes Favoriten-Menü

[fkerber]

Hi!

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

{$R *.dfm} Ciao fkerber

[Christian S.]

[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?
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   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   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
[/Edit]


Bin dabei eigene Favs zu erstellen. Benutze den Code vom Beitrag #8. Habe Problem in der Zeile   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 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 GetSpecialFolder(???, CSIDL_FAVORITES); ?

[taaktaak]

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