Bestimmte user Ordner öffnen

[DeddyH]

Oder so:

Delphi-Quellcode:

var s: string;
begin
  SetLength(s,ExpandEnvironmentStrings('%USERPROFILE%',nil,0));
  if Length(s) > 0 then
    begin
      ExpandEnvironmentStrings('%USERPROFILE%',PChar(s),Length(s));
      ShellExecute(Handle,'explore',PChar(s),nil,nil,SW_SHOW);
    end;
end;