资源更新及读取问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  mstrm1:TMemoryStream;
  update  : dword;
  workdir:string;
begin
  workdir := ExtractFilePath(ParamStr(0));
  mstrm1 := TMemoryStream.Create;
  mstrm1.LoadFromFile(workdir+'\myexe.exe');//要添加资源
  mstrm1.Seek(0,soFromEnd );
  mstrm1.Position :=0;
  CopyFile(PChar(workdir+'\test.exe'),PChar(workdir+'\test_add.exe'),True );
  update := BeginUpdateResourceW(PWideChar(widestring(workdir+'\test_add.exe')),False);
  UpdateResourceW(update,PWideChar(RT_RCDATA),'myexe',0,mstrm1.Memory,mstrm1.Size);
  EndUpdateResourceW(update ,False);
  mstrm1.Free;
  ShowMessage('配置完成了');
end;procedure TForm1.Button2Click(Sender: TObject);
var
exe:tresourcestream;
begin
exe:= TResourceStream.Create(HInstance,'myexe',RT_RCDATA);
exe.SaveToFile('e.EXE');
exe.Free;
end;现在是读不到资源 myexe

Answer 1

mstrm1.LoadFromFile(workdir+'\myexe.exe');  确保路径正确

Answer 2

load完之后，监视流对象是不是nil,它的长度是不是0，判断有没有载入进来。你的问题描述不清，程序最后的运行结果是怎样，你想要的结果是怎样，中间出了什么异常，都要描述出来别人才好分析嘛

Answer 3

多了一个反斜杠
你自己看看workdir变量的值，workdir本来就包含了\

Answer 4

myexe 用大写。