pb10最小化到托盘乱码的解决方法!!!

接上一篇文章 

http://blog.csdn.net/myz002/archive/2007/07/17/1695113.aspx

loadimage成功了 载入图标也就成功了

在托盘那图片也显示成功了 但是有一个新问题出来了 图标的提示显示为乱码

查了好多资料 也有些解决方法 最常见的就是

---------------------------------

char mytips[64]

mydata.sztip = mytips

----------------------------------

----------------------------------

string A

A = "托盘程序"

for i = 1 to Lens(A)

      mydata.sztip = MidA(A,i)

next

----------------------------------

经测试都是不能成功的 还是提示一堆乱码

最终的问题是pb10中用的是Unicode字符集 而API中调用要用ANSI字符集(网上的观点,不知道准不准确)

这样解决的思路就是把提示字符转换成ANSI字符 查找pb函数 发现有一个ToAnsi函数 用上了以后发现提示：

Function "ToAnsi" is now obsoleted and will be removed in a future release

这个就不行了 再查资料 终于网络上有句话的提示起了