枚举Resource资源名

Pony
Pony
Pony
132
文章
18
评论
2020-04-1120:35:59 评论 535字

感谢船老大<chenshiliang_200@163.com>提供代码

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.

 

Pony
  • 本文由 发表于 2020-04-1120:35:59
Microsoft Edge 经典博文

Microsoft Edge

在动手写介篇小文之前 其实小弟此前是一直看不上MS的浏览器的... 十几年IE... 一路从IE5.0、6.0、7.0、8... 一直干到它IE11... 至此个人宣布Say Bye bye... 相...
Delphi CheckBox 透明 经典博文

Delphi CheckBox 透明

其实本来高版本次的Delphi应该已经可以在设置里搞掂介个了 氮素... 在低版本次的Delphi里介个就需要一哈啦... 比如... Delphi2007? 哈哈~~ 上干货... procedur...

发表评论