اضافه کردن shortcut به منوی start

[Graphical]

function CreateFolder(Foldername: 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 + '//' + Foldername), nil) ;
if (GetLastError() = 0) or(GetLastError() = ERROR_ALREADY_EXISTS) then
Result := true;
StrDispose(hPath) ;
end;
end;

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

end;
سلام
بنده با کدهای بالا یک گروه برنامه به منوی استارت اضافه میکنم اما نمیتونم shortcut رو به یک گروه برنامه اضافه کنم

[Hsimple11]

منظورتون اضافه کردن به یک گروه دیگر است؟
فولدر مربوطه را پیدا کنید و بعد میانبر را در آن بسازید.

[Graphical]

با تشکر
منظورم همون گروهی است که ساخته میشه و بعد از ساختن گروه لینک یا Shortcut رو توی همون گروه بسازه

[Hsimple11]

خب همون گروهی که میسازید یک دایرکتوری است. میانبر را در آن بسازید. در ضمن برای اینکار بهتر است از خود نرم افزار سازنده Setup خود کمک بگیرید. راه بهتر و رایج تری است.

[Graphical]

با احترام
من با ساختن همین shortcut توی گروه برنامه مشکل دارم
نرم افزارم بصورت Autorun از سی دی اجرا میشه و نمیخوام setup براش بذارم
به طرزی که تا اجرا شد یک گروه برنامه بسازه و یک میانبر در گروه برنامه بسازه من مشکلم فقط ساختن Shortcut توی همین گروه برنامه اس

[Hsimple11]

من با ساختن همین shortcut توی گروه برنامه مشکل دارم

Create a shortcut in the Startmenu, on the Desktop (http://www.swissdelphicenter.ch/en/showcode.php?id=317)