枚举Resource资源名

implementation


{$R 'res.res'}


{$R *.dfm}
Function EnumResNameProc (hModule: HMODULE; lpType, lpName: PChar; lParam: Longint) :BO0L; stdcall
var
hResource: HRSRC;
Begin
    hResource:=FindResource (hModule, lpName, lpType);
    if hResource<> 0 then
    Form1.Memol.Lines.Add(lpName);
    Result:=True;
End;

//调用
procedure TForm1.Button1Click(Sender:TObject);
var
    lParamflag : IntPtr;
    hResource: HRSRC;
begin
    lParamflag := 1;
    hModue := GetModuleHandle(PWideChar(ParamStr(0))); //HInstance
    EnumResourceNames(hModue,PChar('exefile'),@EnumResNameProc,lParamflag);
end;
 
end.

// 来源 https://www.delphi6.com/article/5xty4j83.html

 

添加新评论

纯文本

  • 不允许使用HTML标签。
  • 自动断行和分段。
  • 网页和电子邮件地址自动转换为链接。
请输入图片中的字符,不区分大小写