这2个函数如何写成Delphi代码？谢谢
C/C++ code:
void SendScanMessage(HWND hwnd, LPCTSTR szMessage)
{
if (GetRandNumber() == 1)
{
COPYDATASTRUCT copyData;
copyData.dwData = (DWORD) MESSAGE_REGISTRY_CLEAN;
copyData.cbData = ((DWORD)wcslen(szMessage) + 1) * sizeof(TCHAR);
copyData.lpData = _alloca(copyData.cbData);
ZeroMemory(copyData.lpData, copyData.cbData);
CopyMemory(copyData.lpData, szMessage, copyData.cbData);
::SendMessage(hwnd, WM_COPYDATA, (WPARAM)NULL, (LPARAM)©Data);
}
}
void SendErrorMessage(HWND hwnd, int nSendNumber, LPCTSTR szNumber, LPCTSTR szRepair, LPCTSTR szShowBold, LPCTSTR szShowNormal)
{
std::wstring str = szNumber;
str += L"|";
str += szRepair;
str += L"|";
str += szShowBold;
str += L"|";
str += szShowNormal;
COPYDATASTRUCT copyData;
copyData.dwData = (DWORD) nSendNumber + MESSAGE_REGISTRY_CLEAN;
copyData.cbData = ((DWORD)str.size() + 1) * sizeof(TCHAR);
copyData.lpData = _alloca(copyData.cbData);
ZeroMemory(copyData.lpData, copyData.cbData);
CopyMemory(copyData.lpData, str.c_str(), copyData.cbData);
::SendMessage(hwnd, WM_COPYDATA, (WPARAM)NULL, (LPARAM)©Data);
}
其中 MESSAGE_REGISTRY_CLEAN为自定义数据
希望对 LZ有帮助。
印象中楼主从没结�
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
