Dúvida Com Findresource

[Paulo Nobre]

Vinha usando o código abaixo sem nenhum problema

Var
RS: TResourceStream;
begin
Caminho1:= ExtractFilePath(Application.ExeName)+'\ANIVERSARIANTES1.txt';
      RS1:= TResourceStream.Create(HInstance, 'ANIVERSARIANTES1', RT_RCDATA);
      RS1.SaveToFile(Caminho1);
      RS1.Free;
end;

ou seja, usando e abusando do RT_RCDATA, com tudo que tenho direito; txt,bmp, exe. doc. Um belo dia resolvi usar de novo com um txt. Da mesma forma:

Caminho2:= ExtractFilePath(Application.ExeName)+'\ANIVERSARIANTES2.txt';
      RS2:= TResourceStream.Create(HInstance, 'ANIVERSARIANTES2', RT_RCDATA);
      RS2.SaveToFile(Caminho2);
      RS2.Free;

Aí deu erro dizendo que não podia encontrar no resource(recursos.res) o arquivo aniversariantes2.

A principio fiquei doido pois tinha feito tudo certo. Cheguei até a reconstruir o arquivo res. Depois de muito tempo descobri que o erro era porque o meu arquivo aniversariantes1.txt tinha zero bytes(desconfiei, coloquei uma letra no arquivo e aí deu certo).

Acontece que preciso que este arquivo seja criado com zero bytes.

Tem jeito ou RT_RCDATA só serve para arquivos com mais de zero bytes?

Alguma Luz?

Obrigado

Paulo Nobre

[s3c]

Olá Paulo, parece que 0 bytes ele não cria.

você pode criar o arquivo pelo CreateFile:

  CreateFile(PChar(Caminho2),  Generic_Write, 0, nil, Create_Always, 0, 0);

[Paulo Nobre]

Olá s3c,

Vou usar esta que você sugeriu.

Obrigado.