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.
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?