فایل لینک - نسخه قابل چاپ

کد:
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;