OK... Nochmal...
Welche Funktion ist egal...
Code:
program PathCheck;
uses
Winapi.Windows,
Winapi.ShlObj,
Winapi.KnownFolders;
{$APPTYPE CONSOLE}
var
Path: PWideChar;
begin
if Succeeded(SHGetKnownFolderPath(FOLDERID_Documents, 0, 0, Path)) then
Writeln(Path);
Readln;
end.
// Username ist Delphi - wie man sieht.
"Nackte Win 11 installation"
Mavarik
PS.: Abgesehen davon das es nervt... Damit wird alles was man auf dem Desktop speichert oder unter Documents an MS übertragen... Gruselig.