2008年11月7日，开始进行基于OpenSEES的CSA研究项目，也叫Hybrid Simulation，该项目由我与王响合作开始进行。我的第一步是研究基于OPP的Delphi去控制OpenSEES程序，实时的放送命令。很久没有搞控制了。查了一些书终于做出来了。这个项目我很感兴趣，同时谢谢日本的Motohide Tada教授在学习资料上面的帮助。
程序源代码如下
procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
i:integer;
txt:string;
begin
h:=findwindow(nil,pchar('opensees.exe'));
setForeGroundWindow(h);
txt:=edit1.text;
SendMessage(h,wm_char,ord(char(txt[i])),0);
SendMessage(h,wm_char,ord(#13),0);
end;