帮忙下把代码翻译成delphi

myyebin 2012-05-15 08:32:54
这是一段C++的代码,那位大神能帮翻译成完整的DELPHI代码。
HWND hWnd = FindWindow(TEXT("ACG!"),0)
CHAR cmd[] = "connect myserver.com:27015" // 命令 "connect myserver.com:27015" 便会在游戏控制台中执行
COPYDATASTRUCT cpd;
pd.dwData = 0;
cpd.cbData = strlen(cmd);
cpd.lpData = cmd;
SendMessage(hWnd,WM_COPYDATA,(DWORD)0x12,(LPARAM)&cpd);
...全文
89 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
myyebin 2012-05-15
  • 打赏
  • 举报
回复
谢谢大神了
bdmh 2012-05-15
  • 打赏
  • 举报
回复

var
h:HWND;
cmd:string;
cpd : COPYDATASTRUCT;
begin
h := FindWindow('ACG!',nil);
cmd := 'connect myserver.com:27015'; // 命令 "connect myserver.com:27015" 便会在游戏控制台中执行
cpd.dwData := 0;
cpd.cbData := Length(cmd);
cpd.lpData := PChar(cmd);
SendMessage(h,WM_COPYDATA,$12,Lparam(@cpd));
end;

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧