FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour C贸mo crear fiecher .INI oculto?
Posts: 3382
Joined: Fri Oct 07, 2005 08:20 PM

C贸mo crear fiecher .INI oculto?

Posted: Fri Aug 28, 2026 01:03 AM

Foreros:

Desde mi aplicaci贸n creo un fichero .INI, la pregunta, c贸mo puedo crearlo con la propiedad de oculto?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 0
Joined: Wed Aug 26, 2026 09:41 AM

Re: C贸mo crear fiecher .INI oculto?

Posted: Fri Aug 28, 2026 03:55 AM

Para crear un archivo .INI con atributo oculto en Windows desde Harbour/xHarbour/FiveWin, usa la API de Windows o la funci贸n de Harbour:

Opci贸n 1: hb_fAttrSet() (Harbour est谩ndar)

#include "fileio.ch"

LOCAL cFile := "config.ini"
LOCAL nHandle

// Crear/abrir el archivo
nHandle := FCreate( cFile, FC_NORMAL )
IF nHandle != F_ERROR
   FClose( nHandle )
   // Establecer atributo oculto (FA_HIDDEN = 2)
   hb_fAttrSet( cFile, HB_FA_HIDDEN )
ENDIF

Opci贸n 2: SetFileAttributes() v铆a HB_FATTRSET / hb_vfAttrSet()

#include "hbwin.ch"

LOCAL cFile := "config.ini"

hb_vfAttrSet( cFile, FILE_ATTRIBUTE_HIDDEN )  // 0x02

Opci贸n 3: Directo con Win32 API (FiveWin)

#include "fivewin.ch"

LOCAL cFile := "config.ini"

SetFileAttributes( cFile, FILE_ATTRIBUTE_HIDDEN )

Notas:
- FILE_ATTRIBUTE_HIDDEN = 0x02 (constante en fivewin.ch / hbwin.ch).
- Si el archivo ya existe, basta llamar a la funci贸n de atributos; no hace falta re-crearlo.
- Para oculto + sistema (menos visible en Explorer): FILE_ATTRIBUTE_HIDDEN + FILE_ATTRIBUTE_SYSTEM (0x06).


Respuesta generada por Inteligencia Artificial usando el modelo nemotron-3-ultra-free via OpenCode Zen. Puede contener errores; por favor verifiquela antes de aplicar.
AI-generated reply using the nemotron-3-ultra-free model via OpenCode Zen. May contain mistakes; please verify before applying.

Posts: 8716
Joined: Tue Dec 20, 2005 07:36 PM

Re: C贸mo crear fiecher .INI oculto?

Posted: Fri Aug 28, 2026 11:50 AM
:: INV.BAT

@echo off

ATTRIB +h ARMANDO.INI

:: ATTRIB -h ARMANDO.INI

echo Concluido!

pause

Regards, saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8716
Joined: Tue Dec 20, 2005 07:36 PM

Re: C贸mo crear fiecher .INI oculto?

Posted: Fri Aug 28, 2026 12:33 PM

Quiero ver a la inteligencia artificial hacerlo mejor que yo. Jajajaja. - Armado: attrib +h +s m谩s dificil de se ver. No s茅 si es recomendable.

// C:\FWH2603\SAMPLES\ARMANINI.PRG - 26/08/2026 by Kapiaba.

#include "FiveWin.ch"
#include "fileio.ch"

FUNCTION Main()

   LOCAL oIni, Nome_Arq, nRegistro
   LOCAL cFileIni := ".\ARMANDO.ini"

   // 1. Cria o arquivo INI e grava os dados normalmente
   INI oIni FILE cFileIni

  SET SECTION "Usuario" ENTRY "Nombre" TO "Armando SOI" OF oIni
  SET SECTION "Usuario" ENTRY "Activo" TO "S"           OF oIni

   ENDINI

   // Atributos: +h - invisible -h visible.
   IF File( cFileIni )

  // Cria o Arquivo de Lote *.Bat no Diret垄rio, Com as Diretrizes.
  IF .NOT. FILE( "INV.BAT" )

     NOME_ARQ := FCREATE("INV.BAT")

     NREGISTRO := "@ECHO OFF"               ;
                  + CRLF        +           ;
                  "CLS"         +           ;
                  + CRLF + CRLF +           ;
                  "ATTRIB +h ARMANDO.INI" + ;
                  + CRLF + CRLF +           ;
                  "CLS"         +           ;
                  + CRLF        +           ;
                  "EXIT"

     FWRITE( NOME_ARQ, NREGISTRO )
     FCLOSE( NOME_ARQ )

  ENDIF

  WinExec( "INV.BAT", 0 )

  MsgInfo( "Arquivo INI criado e ocultado com sucesso!", "Sucesso" )

   ELSE

  MsgStop( "Erro ao criar o arquivo INI.", "Erro" )

   ENDIF

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Regards, saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion