EXE文件操作

在盒子上看到的
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TempName: string;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  Sr: TSearchRec;
  size: Longint;
begin
  FindFirst(ParamStr(0), $27, Sr);
  size := Sr.Size;
  FindClose(Sr);
  StatusBar1.SimpleText := '本程序大小为 ' + IntToStr(size) + ' 字节';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: PChar;
  Ch: array[0..3] of Char;
  Stream1, Stream2: TMemoryStream;
begin
  GetMem(Dir, 254);
  GetTempPath(254, Dir);
  TempName := StrPas(Dir) + 'o.o.0.o.o.exe';
  CopyFile(PChar(ParamStr(0)), PChar(TempName), False);
  Stream1 := TMemoryStream.Create;
  Stream2 := TMemoryStream.Create;
  Stream1.LoadFromFile(TempName);
  //在尾部加入4个随机字节
  Randomize;
  Ch[0] := Chr(Random(256));
  Ch[1] := Chr(Random(256));
  Ch[2] := Chr(Random(256));
  Ch[3] := Chr(Random(256));
  Stream1.Seek(0, soFromEnd);
  Stream1.Write(Ch, 4);
  //修改偏移48的一个字节，记录程序运行次数
  Stream1.Seek(0, soFromBeginning);
  Stream2.CopyFrom(Stream1, 48);
  Stream1.Seek(48, soFromBeginning);
  Stream1.Read(Ch, 1);
  Ch[0] := Chr(1 + Ord(Ch[0]));
  Stream2.Write(Ch, 1);
  Stream1.Seek(49, soFromBeginning);
  Stream2.CopyFrom(Stream1, Stream1.Size - 49);
  Stream2.SaveToFile(TempName);
  Stream1.Free;
  Stream2.Free;
  FreeMem(Dir);
  repeat
    Close
  until FileExists(TempName);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  WinExec(PChar(TempName + '  ' + ParamStr(0)), SW_SHOWNORMAL);
end;

end.