FiveTech Support Forums

#include "FiveWin.ch"

Function Main()
       local oDlg

   DEFINE DIALOG oDlg TITLE "Instalando..."
   
       @10,1 SAY ("Instalando el Sistema de Ordenes.  Espere...") OF oDlg UPDATE SIZE  235,10 PIXEL
    
    ACTIVATE DIALOG oDlg CENTER ON INIT CopiaArch( oDlg )
  
Return Nil
*
Function CopiaArch(oDlg)
     lMkDir( "C:\SISTEMAS" )
     lMkDir( "C:\SISTEMAS\ORDENES" )

    COPY FILE ORDENES.EXE TO C:\SISTEMAS\ORDENES\ORDENES.EXE
    COPY FILE ORDENES.DLL TO C:\SISTEMAS\ORDENES\ORDENES.DLL
    COPY FILE DATA\ORDENES.TXT TO C:\SISTEMAS\ORDENES\ORDENES.INI
    COPY FILE DATA\REPORTE.DBF TO C:\SISTEMAS\ORDENES\REPORTE.DBF
    COPY FILE \\FOSERVER\CUMPLE\IMPLST.EXE TO C:\WINDOWS\IMPLST.EXE
    COPY FILE DATA\ORDENES.LNK TO C:\SISTEMAS\ORDENES\ORDENES.LNK //<strong>Este quiero copiar al escritorio</strong>
     
     oDlg:End()
     MsgInfo("Se ha instaldo el sistema Correctamente")
Return Nil

local cEscritorio 

cEscritorio := Gete( "USERPROFILE" ) + "\escritorio\ordenes.lnk"

COPY FILE DATA\ORDENES.LNK TO (cEscritorio)