Einzelnen Beitrag anzeigen

t.roller
(Gast)

n/a Beiträge
 
#5

AW: TPath.GetDownloadsPath

  Alt 26. Sep 2016, 18:40
Verstehe ich da was falsch? Oder ist das "C:\Benutzer\<Benutzername>\AppData\Local" per Definition für Downloads gedacht? Mir geht es in meinem Fall nur um Windows.
Wenn wir die gleichen Drogen nehmen wie die Programmierer von E., dann verstehen wir es auch!

Kann man in XE7.System.IOUtils.pas sehen, dass der P. nicht ganz nüchtern war:
Delphi-Quellcode:
class function TPath.GetDownloadsPath: string;
{$IFDEF MSWINDOWS}
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);
  if SHGetFolderPath(0,CSIDL_LOCAL_APPDATA, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;
Das Einfachste ist doch folgende Zeile:
Caption:= GetEnvironmentVariable('USERPROFILE')+'\Downloads';
Aufruf des Explorers mit Downloads-Verzeichnis:
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject); // uses ShellApi
var FN: String;
begin
FN:= 'shell:::{374DE290-123F-4565-9164-39C4925E467B} ';
ShellExecute(0,nil,PChar('explorer.exe'),PChar(FN),'',SW_SHOWNORMAL);
end;

Geändert von t.roller (27. Sep 2016 um 10:00 Uhr)
  Mit Zitat antworten Zitat