Só uma observação aí... Já testou num computador com antivírus??? Pode
ser que ele não autorize pensando ser um trojan...
Alguém já testou?
Alemão escreveu:
Claro, vamos lá:
para gravar as informações no arquivo que eu quero, estou usando um outro
programa. Não da pro executavel gravar as informações nele mesmo, ja que
está em uso. Portanto o meu programa de instalação é que está gravando.
Segue o processo pra gravação:
function GravarResourceInfo(const FileName, NomeRecurso, Texto: string):
boolean;
var hRes : THandle;
cHD : String;
Begin
cHD := AnsiUpperCase(Texto);
hRes := BeginUpdateResource(pchar(FileName),False);
if hRes 0 then
begin
result := true;
UpdateResource(hRes,RT_RCDATA,pchar(AnsiUpperCase(NomeRecurso)), 0 ,
Pointer(cHD), StrLen(PCHAR(cHD)) + 1);
If EndUpdateResource(hRes,False) then
Result := true
else
Result := false;
end
else
result := false;
end;
onde: FileName é o nome do arquivo que será atualizado.
NomeRecurso é o nome que você irá dar para o recurso armazenado,
para poder ler a partir do aplicativo.
Texto é o conteúdo que você quer gravar. Pode ser qualquer
informação.
Agora dentro do meu executavel de programa, vou ler o conteúdo gravado no
resource. Esta é a função:
function LerResourceInfo(NomeRecurso: string): string;
var ResData: HGLOBAL;
ResInfo: HRSRC;
Begin
Result := '';
ResInfo := FindResource(hInstance, pchar(AnsiUpperCase(NomeRecurso)),
RT_RCDATA);
if ResInfo 0 then
begin
ResData := LoadResource(hInstance, ResInfo);
if ResData 0 then
begin
try
Result := PChar(LockResource(ResData));
UnlockResource(ResData);
finally
FreeResource(ResData);
end;
end;
end;
end;
Funcionou muito bem.
O legal é que a partir daí vc pode inclusive criptografar o texto, para que
ninguem consiga ver o seu conteúdo com um editor de recursos (Ex: Resource
Explorer).
ps.: para testar se deu certo mesmo, é so abrir o seu programa alterado
neste editor de recursos e ir em RCData, que la vai estar o que vc acabou de
criar.
2009/11/26 José Henrique (Zote) z...@bludata.com.br
