帮忙下把代码翻译成delphi解决办法
帮忙下把代码翻译成delphi
这是一段C++的代码,那位大神能帮翻译成完整的DELPHI代码。
------解决方案--------------------
这是一段C++的代码,那位大神能帮翻译成完整的DELPHI代码。
- C/C++ code
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);
------解决方案--------------------
- Delphi(Pascal) code
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;