能不能将数据就保存到本应用程序的 exe 文件！

Question

能不能将数据就保存到本应用程序的 exe 文件！   什么方法？

Answer 1

给你一个限制程序运行次数的程序：就有写自己的
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    usedTimes:byte;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
  fs:TFileStream;
begin
  fs:=TFileStream.Create(application.ExeName,fmopenread or fmsharedenynone);
  fs.Seek(-1,soFromEnd);
  fs.Read(usedTimes,1);
  fs.Free;
  showMessage('你已使用了'+intToStr(usedTimes)+'次！只能使用50次。');
  setwindowpos(
  if usedTimes>10 then application.Terminate;  //限制使用50次
end;procedure TForm1.FormDestroy(Sender: TObject);
var
  f:Textfile;
  fs:TFileStream;
  i:byte;
begin
  i:=usedTimes+1;
  copyfile('project1.exe','a.exe',false);
  fs:=TFilestream.Create('a.exe',fmopenwrite or fmshareExclusive);
  fs.Seek(-1,soFromEnd);
  fs.Write(i,1);
  fs.Free;
  assignfile(f,'delSelf.bat');
  rewrite(f);
  writeln(f,'del project1.exe');//+#10+'ren a.exe project1.exe'+#10+'del %0');
  writeln(f,'ren a.exe project1.exe');
  writeln(f,'del %0');
  closefile(f);
  winExec('delSelf.bat',sw_hide);
end;end.