Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi "CSIDL_HISTORY" kann mir bitte jemand helfen? (https://www.delphipraxis.net/38357-csidl_history-kann-mir-bitte-jemand-helfen.html)

beatles 18. Jan 2005 00:08


"CSIDL_HISTORY" kann mir bitte jemand helfen?
 
In einem ShellListView lasse ich mir den Verlauf anzeigen. Den Code ich ich des öfteren gefunden habe, hilft mir eigentlich sehr gut dabei.

Delphi-Quellcode:
uses: ActiveX, ShlObj;


{...}

procedure TForm1.Button1Click(Sender: TObject);
 var
  Allocator: IMalloc;
  SpecialDir: PItemIdList;
  slv1Path : array[0..MAX_PATH] of char;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin
    SHGetSpecialFolderLocation(0, CSIDL_HISTORY, SpecialDir);
    SHGetPathFromidList(SpecialDir, slv2Path);
    Allocator.Free(SpecialDir);
    ShellListView1.Root:= string(slv1Path);
    // ShellTreeView1.Root:= string(slv1Path); 2. Altanative  
  end;
end;


{...}

Jetzt wird der Ordner Verlauf sehr schön dargestellt.

:gruebel: Aber was kann ich jetzt damit machen?

Ich möchte, dass bei einem "Doppelklick" die entsprechende URL in einem Edit ausgegeben wird und NICHT der Titel.

Kann mir da mal jemand helfen?

Alexander 18. Jan 2005 08:52

Re: "CSIDL_HISTORY" kann mir bitte jemand helfen?
 
Bei der TShellListView gibt es das Property PATH. Ich kann es jetzt leider nicht ausprobieren (bin leider in der Schule ;)), aber evtl. liefert er dir damit auch den 'richtigen' Pfad zurück.

beatles 18. Jan 2005 15:55

Re: "CSIDL_HISTORY" kann mir bitte jemand helfen?
 
:( Leider nicht, sondern eben nur den Titel der Seite.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz