Der Vollständigkeit halber einmal mit Freigabe des Speichers:
Delphi-Quellcode:
function GetAutostartPathCurrentUser : String;
var
buffer : Array[0..MAX_PATH+1] of Char;
IDL : PItemIDList;
pMalloc : IMalloc;
begin
result:='';
if SHGetMalloc(pMalloc) <> NO_ERROR then exit;
if Succeeded(SHGetSpecialFolderLocation(0, CSIDL_STARTUP, IDL)) then
if SHGetPathFromIDList(IDL, buffer) then
result:=buffer;
pMalloc.Free(IDL);
end;