ShellListView rfDesktop

procedure TForm1.ShellListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  if ShellListView1.Root = rfDesktop then
    Image1.Picture.Bitmap.LoadFromFile('minfil.bmp')
  else
    Image1.Picture.Bitmap.LoadFromFile('dinfil.bmp');
end;

hermandsen  -> det vil ikke virke, fordi Root bare er hvor den starter. Den lader ikke til at have nogle steder man udenvidere kan sammenligne med rfdesktop.


Håber seriøst at der er en bedre måde end dette:


uses ShlObj, activeX

procedure TForm1.Button1Click(Sender: TObject);
var
  PIDL              : PItemIDList;
  Path              : LPSTR;
begin
  Path := StrAlloc(MAX_PATH);
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, PIDL);
  SHGetPathFromIDList(PIDL, Path); 

  ShellListView1.Back;

  if ShellListView1.RootFolder.PathName = Path then
    showmessage('Load image2');

  StrDispose(Path);
end;

Jeg kigger lige på det.....

Tak for hjælpen begge... Det var dkn's forslag der virkede ;)
dkn << Hvor finder du dokumentation over ShellListView?? Jeg syntes jeg har endevendt hele nettet uden held :-/

og også i hjælpefilerne ;)

er faktisk ikke sikker på om der er hjælpefiler til de componenter.
har ihvertefald ikke hørt om det endnu.

De er heller ikke for smarte de components, men nok ok hvis man skal lave noget hurtigt.

ok....