Créer un groupe de raccourcis dans le menu démarrer

Uses shlobj;

function CreateFolder(aFolderName: string; aLocation: integer): boolean;
var
pIdl: PItemIDList;
hPath: PChar;
begin
Result := false;
if SUCCEEDED(SHGetSpecialFolderLocation(0, aLocation, pidl)) then
begin
hPath := StrAlloc(max_path);
SHGetPathFromIDList(pIdl, hPath);
SetLastError(0);
CreateDirectory(PChar(hPath + '' + aFolderName), nil );
if (GetLastError=0) or (GetLastError=ERROR_ALREADY_EXISTS) then
Result := true;
StrDispose(hPath);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateFolder('MyProgramgroup', CSIDL_PROGRAMS);
end;