Application.ShowMainForm:=False; //

 

不显示主窗口

Application.CreateForm(TForm1, Form1); 

Application.Run; 
end; 

end. 

 

四、注意事项
---- 1、网络要装配正确并安装 TCP/IP

 

协议，且要正常运行。

---- 2

 

、首先要运行被控程序。

---- 3、必须知道对方的 IP

 

地址或主机名。

 

如何知道有哪些计算机与自己的电脑连接

const 

MaxNetArrayItems = 512; 
type 

TSessionInfo50 = packed record 
sesi50_cname: PChar; //remote computer name (connection id in Netware) 

sesi50_username: PChar; 
sesi50_key: DWORD; // used to delete session (not used in Netware) 

sesi50_num_conns: Word; 
sesi50_num_opens: Word; //not available in Netware 

sesi50_time: DWORD; 
sesi50_idle_time: DWORD; //not available in Netware 

sesi50_protocol: Char; 
padl: Char; 

end; 

TNetSessionEnum = function (const pszServer: PChar; sLevel: SmallInt; 
pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word; 

var pcTotalAvail: Word): DWORD; stdcall; 

procedure GetNetSessions(ComputerNames: TStrings); 

var 
SessionInfo: array[0..MaxNetArrayItems] of TSessionInfo50; 

EntriesRead, TotalAvail: Word; 
I: Integer; 

Str: string; 
NetSessionEnum: TNetSessionEnum; 

LibHandle: THandle; 
begin 

ComputerNames.Clear; 
LibHandle := LoadLibrary('SVRAPI.DLL'); 

if LibHandle <> 0 then 
begin 

try 
@NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum'); 

if (@NetSessionEnum <> nil) then 
if NetSessionEnum(nil, 50, @SessionInfo, Sizeof(SessionInfo), EntriesRead,