随笔-17  评论-64  文章-79  trackbacks-1

在写程序的时候有些功能需要资源文件因此改写MSDN的例子

function  readSource(loadFile:PChar;var str:string):Boolean;
var
  hres:THandle;
  hexe:THandle;
  hload:THandle;
  pCResLock:PChar;
begin
  Result:=True;
  hexe:=LoadLibrary(loadFile);
  if hexe=0 then
    Result:=False;
  hres:= FindResource(hExe, 'Config', RT_RCDATA);
  if hres=0 then
    Result:=False;
  hload:=LoadResource(hexe,hres);
  if hload=0 then
    Result:=False;
  pCResLock:=LockResource(hload);
  FreeLibrary(hexe);
  str:=string(pCResLock);
  ShowMessage(pCResLock);
end;

function  updateSource(loadFile:PChar;str:string)Boolean;
var
  hUpdateRes :THandle;
begin
  Result:=True;
  hUpdateRes:=BeginUpdateResource(loadFile,False);
  Result:=UpdateResource(hUpdateRes,
     RT_RCDATA,
     PChar('Config'),
     MakeWord(LANG_NEUTRAL, SUBLANG_NEUTRAL) ,
     PChar(str),
     Length(str)
    );
  if Result=True then
    EndUpdateResource(hUpdateRes, FALSE);
end;

posted on 2007-05-16 18:40 飞鸟 阅读(985) 评论(0)  编辑  收藏 所属分类: Delphi

只有注册用户登录后才能发表评论。


网站导航: