如何在PB或DELPHI中直接修改X3 协同管理系统中的密码**

beidou

最好能给个简单的例子

alang

以下是在Delphi中调用 GetClientAccount 方法的例子
procedure TForm1.Button1Click(Sender: TObject);
var
  bu: TBusiness;
  ov: OleVariant;
  i: Integer;
begin
  bu := TBusiness.Create(Self);
  bu.Parent := Panel1;
  bu.ServerURL := 'http://192.168.1.189:8081';
  bu.UpdateVersion;
  bu.Init;
  bu.Run('', '', '', '');
  i := GetTickCount;
  while GetTickCount<i+20000 do
    Application.ProcessMessages;
  Showmessage(bu.InvokeMethod('GetClientAccount', ov));
end;