Fórum salvar informações dentro de um executavel. #244764

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Arq : TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignFile(Arq,´Arq.txt´);
  Append(Arq);
  WriteLN(Arq,edit1.text);
  CloseFile(Arq);
  edit1.Clear;
  Edit1.SetFocus;
// grava no arquivo txt o texto que ta no edit
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Nome : String;
begin
  ListBox1.Clear;
  AssignFile(Arq,´Arq.txt´);
  Reset(Arq); // abre o arquivo
  While Not Eof(Arq) Do
    Begin
      ReadLN(Arq, Nome);
      ListBox1.Items.Add(Nome);
    End;
  CloseFile(Arq);
// botão que carrega os dados da lista
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  If not(FileExists(Application.GetNamePath+´Arq.txt´)) then // se o arquivos nao exitir
    begin
      AssignFile(Arq, Application.GetNamePath+´Arq.txt´);
      Rewrite(Arq);   // re-crie o arquivo.
    end;
end;

end.

uses
  madRes;

procedure LerRecurso;
var ResData: HGLOBAL;
    ResInfo: HRSRC;
    Recurso: String;
    hDLLRecurso: THandle;
begin
  hDLLRecurso:= LoadLibrary(´NOME_DA_DLL.DLL´);
  try
    ResInfo:= FindResource(hDLLRecurso, ´NOME_DO_RECURSO´, RT_RCDATA);
    if ResInfo <> 0 then
      begin
        ResData:= LoadResource(hDLLRecurso, ResInfo);
        if ResData <> 0 then
          try
            Recurso:= PChar(LockResource(ResData));
            UnlockResource(ResData);
          finally
            FreeResource(ResData);
          end;
      end;
  finally
    FreeLibrary(hDLLRecurso);
  end;
  // neste ponto a string presente na DLL está armazenada
  // na variável "Recurso"
end;


procedure GravarRecurso;
var hDLLRecurso: DWord;
    Recurso: String;
begin
  Recurso:= ´Gravei este texto na DLL´;
  hDLLRecurso:= BeginUpdateResourceW(´NOME_DA_DLL.DLL´, False);
  if hDLLRecurso <> 0 then
    try
      UpdateResourceW(hDLLRecurso, PWideChar(RT_RCDATA), ´NOME_DO_RECURSO´, 0, Pointer(Recurso), Length(Recurso));
    finally
      EndUpdateResourceW(hDLLRecurso, False);
    end;
  // neste ponto o valor atribuido à variável Recurso foi gravado na DLL.
end;