Standard path til Windows-mapper

brug den her :
  Function GetSpecialFolderLocation(folder : String) : String;
  begin
    Result := '';
    with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);
      result := ReadString(Folder)  + #92;
    finally
      free;
    end;
  end;


Og kald den således :

GetSpecialFolderLocation('Desktop')

Jens B

eller i en TListView :

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg : TRegistry;
  Strings : TStringList;
  i : Integer;
  tmpListItem : TListItem;
Const
  Key = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\';
begin
  Reg := TRegistry.Create;
  Strings := TStringList.Create;
  ListView1.Items.Clear;

  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey(key, FALSE) then
    Reg.GetValueNames(Strings);
  Strings.Sort;

  For i:= 0 to pred(Strings.Count) do
    begin
      tmpListItem := ListView1.Items.Add;
      tmpListItem.Caption:= Strings[i];
      tmpListItem.SubItems.Add(Reg.ReadString(Strings[i]));
    end;

  reg.Free;
end;


Jens B

Ikke akkurat hva jeg spurte om, men det VIRKER!!!
Takk!

//theHollow (Norge)