SendMessage操作另一个EXE，存在这，以后也许用得着。

unit Unit1;

interface

uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls, IdTCPServer, IdContext,
IdAntiFreeze, IdAntiFreezeBase, IdBaseComponent, IdComponent, IdCustomTCPServer,
IdGlobal, Messages, Dialogs;

type
TfrmMain = class(TForm)
grp4: TGroupBox;
mmoLog: TMemo;
IdTCPServer1: TIdTCPServer;
IdAntiFreeze1: TIdAntiFreeze;
procedure IdTCPServer1Execute(AContext: TIdContext);
procedure FormCreate(Sender: TObject);
private
public
{ Public declarations }
end;

var
frmMain: TfrmMain;
cnt : Integer = 0;
UserNameHandle, UserPassHandle, NewAccountHandle, ResultMemoHandle: Cardinal;

function EnumWindowsProc(Hwnd:THandle;lParam:LParam):boolean;Stdcall;
function EnumChildProc(Hwnd:THandle;lParam:LParam):boolean;Stdcall;

implementation

{$R *.dfm}

uses
Unit_Msg;

function EnumWindowsProc(Hwnd:THandle;lParam:LParam):boolean;
var
WindowCaption:array[0..254] of Char;
begin
GetWindowText(Hwnd,WindowCaption,255);
if StrPas(WindowCaption) = 'CH_Ts2_RELAY MALA NET' then
begin
cnt := 0;
EnumChildWindows(Hwnd,@EnumChildProc,0);
Result := False;
Exit;
end;
Result := True;
end;

function EnumChildProc(Hwnd:THandle;lParam:LParam):boolean;
var
WindowClass:array[0..254] of Char;
begin
GetClassName(Hwnd,WindowClass,255);
begin
Inc(cnt);
case cnt of
25: UserPassHandle := Hwnd;
26: UserNameHandle := Hwnd;
20: NewAccountHandle := Hwnd;
34: ResultMemoHandle := Hwnd; //第一个memo 33是第二个memo
21: ;
end;
//以下这句代码编号所有子控件,可按EDIT选
//if Pos('EDIT',UpperCase(StrPas(WindowClass))) > 0 then
//SendMessage(Hwnd,WM_SETTEXT,0,LongInt(PChar(IntToStr(cnt))));
end;
Result := True;
end;

procedure TfrmMain.IdTCPServer1Execute(AContext: TIdContext);
var
GameName, Pass: string;
arr: array[0..254] of Char;
cmdHead: string;
ReturnMsg: TReturnMsg;
Buff: TIdBytes;
AddUser: T_AddUser; //add user
begin
cmdHead := AContext.Connection.IOHandler.ReadLn;
//注册帐号
if 'AddUser' = cmdHead then begin
AContext.Connection.IOHandler.ReadBytes(Buff, SizeOf(AddUser));
BytesToRaw(Buff, AddUser, SizeOf(AddUser));
GameName := AddUser.uGameName;
Pass := AddUser.uPass;
//发送模拟信息
SendMessage(UserNameHandle, WM_SETTEXT, 0, Integer(PChar(GameName)));
SendMessage(UserPassHandle, WM_SETTEXT, 0, Integer(PChar(Pass)));
SendMessage(NewAccountHandle, BM_CLICK, 0, 0);
Sleep(1000);
//获取memo内容
SendMessage(ResultMemoHandle,WM_GETTEXT,255,Longint(@arr[0]));
SendMessage(ResultMemoHandle, WM_SETTEXT, 0, Integer(PChar('')));
//比较是否成功
if Pos('101 + 1 RESULT: 1 GNAME: ' + GameName, arr) > 0 then begin
ReturnMsg.Tag := SM_AddNewId_Fail;
ReturnMsg.str := Format('%s 帐号已存在！', [GameName]);
Buff := RawToBytes(ReturnMsg, SizeOf(ReturnMsg));
AContext.Connection.IOHandler.Write(Buff);
Exit;
end else if Pos('101 + 1 RESULT: 0 GNAME: ' + GameName, arr) > 0 then begin
ReturnMsg.Tag := SM_AddNewId_Success;
ReturnMsg.str := Format('%s 注册成功！', [GameName]);
MmoLog.Lines.Add(Format('%s%s 注册成功！来自IP: %s', [GetNowTime, GameName, AContext.Connection.Socket.Binding.PeerIP]));
Buff := RawToBytes(ReturnMsg, SizeOf(ReturnMsg));
AContext.Connection.IOHandler.Write(Buff);
Exit;
end else begin
ReturnMsg.Tag := SM_AddNewId_Fail;
ReturnMsg.str := '未知错误！';
Buff := RawToBytes(ReturnMsg, SizeOf(ReturnMsg));
AContext.Connection.IOHandler.Write(Buff);
Exit;
end;
end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
HndForm: THandle;
begin
HndForm := FindWindow(nil, PChar('CH_Ts2_RELAY MALA NET'));
if HndForm = 0 then begin
ShowMessage('Relay.exe未启动，程序将退出。');
Application.Terminate;
end else begin
//先获取句柄
Enumwindows(@EnumWindowsProc,0);
if (UserNameHandle = 0) or (UserPassHandle = 0) or (ResultMemoHandle = 0) then begin
ShowMessage('Handle获取失败，程序将退出。');
Application.Terminate;
end;
end;

try
//listen
IdTCPServer1.Bindings.Add.IP := '0.0.0.0';
IdTCPServer1.Bindings.Add.Port := 8897;
IdTCPServer1.Active := True;
mmoLog.Lines.Add(Format('%s封包注册服务已启动。', [GetNowTime]));
mmoLog.Lines.Add(Format('%s正在监听 %d 端口', [GetNowTime, 8897]));
except
MmoLog.Lines.Add(Format('%s无法打开 %d 端口，请检查端口是否正在使用中。', [GetNowTime, 8897]));
Exit;
end;
end;

end.