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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour28/11/2001
VisualisationVu 838 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur