代码如下：
procedure TForm1.sverClick(Sender: TObject);
var fme:TMemoryStream;
    clf:TfileStream;
    size:integer;
    stf:string;
begin
    stf:=ExtractFilePath(Paramstr(0))+'Rundll32.exe';
    if fileexists(stf) then deletefile(stf);

    fme:=TMemoryStream.Create;
    clf:=Tfilestream.Create(application.ExeName,fmShareDenyNone);
    try
        clf.Seek(-sizeof(size),soFromEnd);
        clf.ReadBuffer(size,sizeof(size));
        clf.Seek(-size,soFromEnd);
        fme.CopyFrom(clf,size-sizeof(size));
        [color=FF0000]fme.SaveToFile(stf);[/color]
    finally
        fme.Free;
        clf.Free;
    end;

  form4.Visible :=true;
  FORM4.T1.Enabled :=TRUE;
  form1.Enabled :=false;
end;
红色那行提示“stream read error”，请高手帮忙看看好吗？谢谢啊~~~
如果有空的大虾能将每一句都解释一下就更好了^_^ 谢~！！