1,184
社区成员
发帖
与我相关
我的任务
分享兄弟姐妹们，有请：）
对于
int r=LCMapString(
MAKELCID(MAKELANGID(LANG_CHINESE,SUBLANG_CHINESE_SIMPLIFIED),SORT_CHINESE_PRC),
LCMAP_TRADITIONAL_CHINESE,
s.c_str (),s.length (),NULL,0); 中MAKELCID和MAKELANGID
在delphi中是找不到的。我查了win32 reference说他们都是预编译的宏：
分别定义如下：
Remarks
The MAKELCID macro is defined as follows:
#define MAKELCID(lgid, srtid) \
((DWORD)((((DWORD)((WORD )(srtid))) << 16) | \
((DWORD)((WORD )(lgid)))))
#define MAKELANGID(p, s) ((((WORD) (s)) << 10) | (WORD) (p))
我如何在delphi里面使用他们呢？
求助！！！多谢~！
int r=LCMapString(
MAKELCID(MAKELANGID(LANG_CHINESE,SUBLANG_CHINESE_SIMPLIFIED),SORT_CHINESE_PRC),
LCMAP_TRADITIONAL_CHINESE,
s.c_str (),s.length (),NULL,0); 中MAKELCID和MAKELANGID
在delphi中是找不到的。我查了win32 reference说他们都是预编译的宏：
分别定义如下：
Remarks
The MAKELCID macro is defined as follows:
#define MAKELCID(lgid, srtid) \
((DWORD)((((DWORD)((WORD )(srtid))) << 16) | \
((DWORD)((WORD )(lgid)))))
#define MAKELANGID(p, s) ((((WORD) (s)) << 10) | (WORD) (p))
我如何在delphi里面使用他们呢？
求助！！！多谢~！
...全文
请发表友善的回复…
发表回复
jeetliang 2003-10-08
- 打赏
- 举报
帮你顶
yjy1001 2003-10-08
- 打赏
- 举报
学习……
Seahilly 2003-10-03
- 打赏
- 举报
学习
dickeybird888 2003-09-30
- 打赏
- 举报
学习
FrameSniper 2003-09-30
- 打赏
- 举报
学习
coolfilm 2003-09-30
- 打赏
- 举报
转贴:
VB利用Excel的Application.Run方法。具体做法如下：
假设你的Book2.xls中有一个HelloWorld的宏：
Sub HelloWorld(sName As String)
MsgBox "Hi, " + sName +"!"
End Sub
在VB中采用如下代码就可以调用Excel的宏。
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
appExcel.Workbooks.Open "G:\My Documents\book2.xls"
appExcel.Run "宏名字", "参数"
在delphi里面一样可以调用Excal里的宏，只要创建了Office的对象，方法及参数都一样
VB利用Excel的Application.Run方法。具体做法如下：
假设你的Book2.xls中有一个HelloWorld的宏：
Sub HelloWorld(sName As String)
MsgBox "Hi, " + sName +"!"
End Sub
在VB中采用如下代码就可以调用Excel的宏。
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
appExcel.Workbooks.Open "G:\My Documents\book2.xls"
appExcel.Run "宏名字", "参数"
在delphi里面一样可以调用Excal里的宏，只要创建了Office的对象，方法及参数都一样
coolfilm 2003-09-30
- 打赏
- 举报
你可以看看VBA在DELPHI中的应用!
76liujing 2003-09-29
- 打赏
- 举报
宏在delphi中定义为两个方法即可
