Buenos días para todos
Estuve buscando en el foro pero no encontré respuesta, es que deseo cambiar el icono de la carpeta de contiene nuestra aplicación, lo hice de manera manual, pero quiero saber si es posible hacerlo desde código.
function SetFolderIcon( cFolder, cFileIco, cInfoTip )
local lSet := .f.
local oIni, cIni, cSec := ".ShellClassInfo"
cFolder := RemRight( cFolder, "\" )
DEFAULT cInfoTip := ""
if File( cFileIco ) .and. Lower( cFileExt( cFileIco ) ) == "ico" .and. ;
!File( cFolder )
if !lIsDir( cFolder )
lMkFullPath( cFolder )
endif
if lIsDir( cFolder )
SetFAttr( cFolder, 4 )
cFileIco := cRelativePath( cFileIco, cFolder )
cIni := cFolder + "\desktop.ini"
INI oIni FILE cIni
SET SECTION cSec ENTRY "ConfirmFileOp" TO 0 OF oIni
SET SECTION cSec ENTRY "NoSharing" TO 1 OF oIni
SET SECTION cSec ENTRY "IconFile" TO cFileIco OF oIni
SET SECTION cSec ENTRY "IconIndex" TO 0 OF oIni
SET SECTION cSec ENTRY "InfoTip" TO cInfoTip OF oIni
SetFAttr( cIni, 2 )
lSet := .t.
endif
endif
return lSet
? SetFolderIcon( "c:\fwh\icofolder", "c:\fwh\icons\fivetech.ico", "FWH SetFolderIcon() function" )
acuellar wrote:Buenas estimados
Y la función cRelativePath donde la encuentro?
// \samples\CRELATIV.PRG
#Include "FiveWin.ch"
FUNCTION Main()
? SetFolderIcon( "c:\FWH1905\icofolder", "c:\FWH1905\icons\fivetech.ico", ;
"FWH SetFolderIcon() function" )
RETURN NIL
FUNCTION SetFolderIcon( cFolder, cFileIco, cInfoTip )
local lSet := .f.
local oIni, cIni, cSec := ".ShellClassInfo"
cFolder := RemRight( cFolder, "\" )
DEFAULT cInfoTip := ""
IF FILE( cFileIco ) .AND. Lower( cFileExt( cFileIco ) ) == "ico" .AND. ;
.NOT. FILE( cFolder )
IF .NOT. lIsDir( cFolder )
lMkFullPath( cFolder )
ENDIF
IF lIsDir( cFolder )
SetFAttr( cFolder, 4 )
cFileIco := cRelativePath( cFileIco, cFolder )
cIni := cFolder + "\desktop.ini"
INI oIni FILE cIni
SET SECTION cSec ENTRY "ConfirmFileOp" TO 0 OF oIni
SET SECTION cSec ENTRY "NoSharing" TO 1 OF oIni
SET SECTION cSec ENTRY "IconFile" TO cFileIco OF oIni
SET SECTION cSec ENTRY "IconIndex" TO 0 OF oIni
SET SECTION cSec ENTRY "InfoTip" TO cInfoTip OF oIni
SetFAttr( cIni, 2 )
lSet := .t.
ENDIF
ENDIF
? cIni // ??
RETURN( lSet )
// FIN / END
acuellar wrote:Buenas estimados
Y la función cRelativePath donde la encuentro?
acuellar wrote:Buenas estimados
Y la función cRelativePath donde la encuentro?
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 113 guests