gerar um arquivo txt somente leitura

[porter]

olá pessoal, gostaria de saber se tem como gerar um arquivo txt somente leitura pelo xHarbour ?
Preciso fazer dessa forma até conseguir desenvolver um aplicativo em Harbour 3.4 que mostre um arquivo texto
selecione uma impressora e imprima, por enquanto estou usando o EditPad

Estou gerando o arquivo texto assim:

Código: Selecionar todos

SET DEVICE TO PRINT
SET PRINT ON
SET PRINTER TO arquivo.txt

RUN ( "EditPad.exe arquivo.txt" )

[Jairo Maia]

Olá Porter,

Em xHarbour use:

Código: Selecionar todos

SetFAttr( "arquivo.txt", 1 )  // Read Only

Para voltar o arquivo ao Atributo Normal use:

Código: Selecionar todos

SetFAttr( "arquivo.txt", 0 )

[porter]

olá Jairo, obrigado por responder.
Esse comando não deixa gravar um arquivo se for modificado, mas no meu caso estou usando o EditPad,
se o usuário modificar os dados do arquivo e Salvar como... com outro nome vai aceitar modificar e gravar
normalmente, dessa forma vai resolver meu problema em parte.

[alxsts]

Olá!

Por que não usa MemoEdit() para exibir o arquivo? Pode definir uma tecla que abre a seleção de impressora e impressão. Talvez outra tecla para enviar por e-mail, outra para salvar como PDF, etc...