我把几张图片做成了res,想放到程序中去,但不知道如何找到文件名var hResInfo : THandle;
Skin : PChar;
hRes : THandle;
begin
hResInfo := FindResource(HInstance, 'pic', 'mypic');
hRes := LoadResource(HInstance, hResInfo);
if hRes > 32 then
begin
skin:=LockResource(hRes);
end;
showmessage(pic);//此处是乱码
Skin : PChar;
hRes : THandle;
begin
hResInfo := FindResource(HInstance, 'pic', 'mypic');
hRes := LoadResource(HInstance, hResInfo);
if hRes > 32 then
begin
skin:=LockResource(hRes);
end;
showmessage(pic);//此处是乱码
解决方案 »
- TSERVERSOCKET做文本消息处理服务器,阻塞加多线程还是非阻塞性能更快些?
- f1book打开excel文件
- 五一散分(五)
- B/S架构程序的问题。请各位一瞧。
- 在DELPHI操作ORACLE中使用ADOQUERY.EXCESQL之后要不要执行COMMIT?
- 調用webbrowser時彈出窗口 導止程序暂停运行
- 谁有局域网语音的源程序,控件,或开发包,发给我一个。
- 哪里有介绍Chart用法的?
- 誰能解決,給個人100分. 3層的程序發布時EOleSysError錯誤;在開發的計算機上運行沒有問題,為什麼????
- 有个用时间查询的问题解决不了,请教各位,望多多指教!!! 先谢谢了
- 如何实现下面的功能?
- 在QReport中打印固定表格线,有好的方法吗?必需解决本页合计问题!
Skin : PChar;
hRes : THandle;
begin
hResInfo := FindResource(HInstance, 'pic', 'mypic');
hRes := LoadResource(HInstance, hResInfo);
if hRes > 32 then
begin
pic:=LockResource(hRes);
end;
showmessage(pic);//此处是乱码
我想将PIC转为一个指向文件的string
引用的时候是通过标识符控制的。