begin if FromClient and (ConnectName='SokolA') and (pck=HStr('1b 04 00 00 00')) then begin buf:=HStr('45 00 00 00 00 00 00 00 00 00'); SendToServerEx('SokolB'); pck:=''; end; end.
var lib,Lib1:Integer; Res:variant; ar:array of variant; begin lib := loadLibrary('User32.dll'); lib1 := loadLibrary('GDI32.dll'); Res := CallFunction(lib,'MessageBoxW',4,[nil,'Text1','text2',0]); Res := CallFunction(lib,'GetDC',1,[0]); CallFunction(lib1,'LineTo',3,[Res,100,100]); CallFunction(lib,'ReleaseDC',2,[0,Res]); FreeLibrary(lib); FreeLibrary(lib1); end.