نکات برنامه نویسی در دلفی

[vesal]

procedure CreateShortcut(SourceFileName, Title: string; Location:

  ShortcutType; SubDirectory : string);

var

  MyObject : IUnknown;

  MySLink  : IShellLink;

  MyPFile  : IPersistFile;

  Directory,

  LinkName  : string;

  WFileName : WideString;

  MyReg,

  QuickLaunchReg : TRegIniFile;

begin

  MyObject := CreateComObject(CLSID_ShellLink);

  MySLink := MyObject as IShellLink;

  MyPFile := MyObject as IPersistFile;



  MySLink.SetPath(PChar(SourceFileName));



  MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\Cur  rentVersion\Explorer');

  try

   LinkName := ChangeFileExt(SourceFileName, '.lnk');

   LinkName := ExtractFileName(LinkName);

   case Location of

     _DESKTOP    : Directory := MyReg.ReadString('Shell Folders', 'Desktop', '');

     _STARTMENU  : Directory := MyReg.ReadString('Shell Folders', 'Start Menu', '');

     _SENDTO     : Directory := MyReg.ReadString('Shell Folders', 'SendTo', '');

     _QUICKLAUNCH:

       begin

         QuickLaunchReg := TRegIniFile.Create('Software\MicroSoft\Windows\Cur  rentVersion\GrpConv');



         try

           Directory := QuickLaunchReg.ReadString('MapGroups', 'Quick Launch', '');

         finally

           QuickLaunchReg.Free;

         end; {try..finally}

       end; {case _QUICKLAUNCH}

   end; {case}

   if Directory <> '' then

     begin

       if SubDirectory <> '' then

        WFileName := Directory + '\'+ SubDirectory +'\' + LinkName

       else

        WFileName := Directory + '\' + LinkName;

       MyPFile.Save(PWChar(WFileName), False);

     end; {Directory <> ''}

 finally

   MyReg.Free;

 end; {try..finally}

end; {CreateShortcut}