我把几张图片做成了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);//此处是乱码

解决方案 »

  1.   

    上面有些不对var hResInfo : THandle;
        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
      

  2.   

    转换成res文件后,只有一个res文件了,你还要找什么文件名。
    引用的时候是通过标识符控制的。
      

  3.   

    没有办法,因为那个函数要的就是一个string,
      

  4.   

    没有文件名了,只有你做RES文件时定的资源名。
      

  5.   

    转换成res文件后,只有一个res文件了,再说你用SHOWMESSAGE去显示PIC,能行得通吗,它里面的可不是标准字符,因此,显示乱码是再正常不过的了。