دنیای برنامه نویسی دلفی - Delphi Programming

دنیای برنامه نویسی دلفی از مقدماتی تا پیشرفته ( آموزش ) - Delphi Programming

فایل لینک
ساعت ۱:٤۱ ‎ق.ظ روز شنبه ٤ فروردین ۱۳۸٦  کلمات کلیدی: فایل ها ، کدهای کاربردی ویندوز

از طریق این تابع می توانید یک فایل لینک از برنامه مورد نظر خود ایجاد کنید
procedure TForm1.Button1Click(Sender: TObject);
 
  procedure CreaLnk( Exe,
                     Argumentos,
                     DirTrabajo,
                     NombreLnk,
                     DirDestino:string);
  var
    Objeto: IUnknown;
    UnSlink: IShellLink;
    FicheroP: IPersistFile;
    WFichero: WideString;
  begin
    Objeto := CreateComObject(CLSID_ShellLink);
    UnSlink := Objeto as IShellLink;
    FicheroP := Objeto as IPersistFile;
    with UnSlink do
      begin
        SetArguments( PChar(Argumentos) );
        SetPath( PChar(Exe) );
        SetWorkingDirectory( PChar(DirTrabajo) );
      end;
    WFichero := DirDestino + '\' + NombreLnk;
    FicheroP.Save(PWChar(WFichero),False);
  end;

begin
  CreaLnk( 'c:\windows\Notepad.exe', {File Exe}
           'c:\Autoexec.bat',        {Arguments}
           'c:\',                    {Diretory  Base (For Search File Source)}
           'Editor Autoexec.lnk',    {File Name Link Output}
           'c:\'   {Output Directory}
           );
end;