код такой
| Код |
type
MPR_SERVER_HANDLE=THandle;
type
MPR_SERVER_0 = record
fLanOnlyMode: BOOL;
dwUpTime: DWORD;
dwTotalPorts: DWORD;
dwPortsInUse: DWORD;
end;
function MprAdminServerConnect(lpwsServerName: PWideChar; var phMprServer: MPR_SERVER_HANDLE): DWord; stdcall; external 'mprapi.dll';
function MprAdminServerGetInfo(phMprServer: MPR_SERVER_HANDLE; dwLevel: DWord; var lplpBuffer: Pointer): DWord; stdcall; external 'mprapi.dll';
procedure MprAdminServerDisconnect(var phMprServer: THandle); stdcall; external 'mprapi.dll';
var
MprServer: MPR_SERVER_HANDLE;
MprErrors: DWord;
lpBuffer: Pointer;
ServInfo: MPR_SERVER_0;
begin
new(lpBuffer);
MprErrors:=MprAdminServerConnect('hanymej',MprServer);
writeln(MprErrors);
MprErrors:=MprAdminServerGetInfo(MprServer,0,lpBuffer);
writeln(MprErrors);
MprAdminServerDisconnect(MprServer);
end.
|
как вывести данные полученные от MprAdminServerGetInfo? |
