Copiar un acceso directo al escritorio
Posted: Fri Apr 03, 2009 12:36 pm
Hola a todos
Como puedo copiar un archivo de acceso directo al escritorio desde un programa.
Aqui el ejemplo
Gracias amigos
Saludos
Adhemar Cuéllar
Como puedo copiar un archivo de acceso directo al escritorio desde un programa.
Aqui el ejemplo
Code: Select all
#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 //[b]Este quiero copiar al escritorio[/b]
oDlg:End()
MsgInfo("Se ha instaldo el sistema Correctamente")
Return Nil
Saludos
Adhemar Cuéllar