size : 815 uploaded_on : Thu May 27 00:00:00 1999 modified_on : Wed Dec 8 14:03:41 1999 title : Access "Start" menu org_filename : StartGroups.txt author : Peter Below authoremail : 100113.1101@compuserve.com description : How to add items to start menu keywords : tested : not tested yet submitted_by : The CKB Crew submitted_by_email : ckb@netalive.org uploaded_by : nobody modified_by : nobody owner : nobody lang : plain file-type : text/plain category : delphi-system32bit __END_OF_HEADER__ > Is there a delphi function or API function with wich > I can create a program group for an application? Yes, MkDir or CreateDir. The program "groups" are in fact simple directories under the users profile directory. use ShlObj; Procedure FreePidl( pidl: PItemIDList ); Var allocator: IMalloc; Begin If Succeeded(SHGetMalloc(allocator)) Then Begin allocator.Free(pidl); {$IFDEF VER90} allocator.Release; {$ENDIF} End; End; procedure TForm1.Button2Click(Sender: TObject); Var pidl: PItemIDList; buf: Array[0..MAX_PATH] of Char; begin If Succeeded( ShGetSpecialFolderLocation( Handle, CSIDL_PROGRAMS, pidl )) Then Begin If ShGetPathfromIDList( pidl, buf ) Then ShowMessage( buf ); // buf has starmenu\programs folder FreePIDL( pidl ); End; end;