كيف بإمكانك وضع روابط لملفات على سطح المكتب و حذفه

كود :

Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
...

 uses ShlObj, ActiveX, ComObj;
...

procedure TForm1.Button1Click(Sender: TObject);
var
   IObject : IUnknown;
   ISLink : IShellLink;
   IPFile : IPersistFile;
   PIDL : PItemIDList;
   InFolder : array[0..MAX_PATH] of Char;
   TargetName : String;
   LinkName : WideString;
begin
if OpenDialog1.Execute then
   begin
   TargetName := OpenDialog1.FileName;
   IObject := CreateComObject(CLSID_ShellLink) ;
   ISLink := IObject as IShellLink;
   IPFile := IObject as IPersistFile;
   with ISLink do
   begin
     SetPath(pChar(TargetName)) ;
     SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ;
   end;
   SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ;
   SHGetPathFromIDList(PIDL, InFolder) ;
   LinkName := InFolder + '\دلفي للعرب.lnk';       // إسم الرابط
   IPFile.Save(PWChar(LinkName), false) ;
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   PIDL : PItemIDList;
   InFolder : array[0..MAX_PATH] of Char;
   LinkName : WideString;
begin
   SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ;
   SHGetPathFromIDList(PIDL, InFolder) ;
   LinkName := InFolder + '\دلفي للعرب.lnk';
   DeleteFile(LinkName) ;
end;

كود :

Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
...

 uses ShlObj, ActiveX, ComObj;
...


procedure TForm1.Button1Click(Sender: TObject);
var
   IObject : IUnknown;
   ISLink : IShellLink;
   IPFile : IPersistFile;
   PIDL : PItemIDList;
   InFolder : array[0..MAX_PATH] of Char;
   TargetName : String;
   LinkName : WideString;
begin
if OpenDialog1.Execute then
   begin
   TargetName := OpenDialog1.FileName;
   IObject := CreateComObject(CLSID_ShellLink) ;
   ISLink := IObject as IShellLink;
   IPFile := IObject as IPersistFile;
   with ISLink do
   begin
     SetPath(pChar(TargetName)) ;
     SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ;
   end;
   SHGetSpecialFolderLocation(0,CSIDL_COMMON_PROGRAMS ,PIDL);
   SHGetPathFromIDList(PIDL, InFolder) ;
   LinkName := InFolder + '\دلفي للعرب.lnk';       // إسم الرابط
   IPFile.Save(PWChar(LinkName), false) ;
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   PIDL : PItemIDList;
   InFolder : array[0..MAX_PATH] of Char;
   LinkName : WideString;
begin
   SHGetSpecialFolderLocation(0,CSIDL_COMMON_PROGRAMS ,PIDL);
   SHGetPathFromIDList(PIDL, InFolder) ;
   LinkName := InFolder + '\دلفي للعرب.lnk';
   DeleteFile(LinkName) ;
end;