重新学编程

function  readSource(loadFile:PChar;var str:string):Boolean;
var
  hres:THandle;
  hexe:THandle;
  hload:THandle;
  pCResLock:PChar;
begin
  Result:=True;
  hexe:=LoadLibrary(lo...