可以通过中间层传递参数给服务端。
function get_name:string;
var ComputerName: PChar; size: DWord;
begin
GetMem(ComputerName,255);
size:=255;
// 获取计算机名称
if GetComputerName(ComputerName,size)=False then
begin
// MessageBox(Handle,'获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);
application.MessageBox('获取计算机名称失败。','错误',MB_OK+MB_ICONERROR);