قرار دادن آیتم در منوی استارت

با سلام

اگه قصد دارید توسط کدنویسی یک لینک در منوی استارت قرار بدید از این کد میتونید استفاده کنید

 

uses JclShell, ShlObj;

 

procedure TForm1.Button1Click(Sender: TObject);

var ShellLink: TShellLink;

begin

  CoInitialize(nil);

  with ShellLink do begin

    Arguments:='';

    IdList:=nil;

    WorkingDirectory:='c:\test';

    Target:='c:\test\test.exe';

    Description:='Testprogramm';

  end;

  ShellLinkCreateSystem(ShellLink, CSIDL_COMMON_STARTMENU,

    'Program\Saberi\Project.lnk');

  ShellLinkFree(ShellLink);

end;