lick(Sender: TObject);
begin
if not assigned(form2) then form2:=Tform2.Create(application);
form2.show;
end;
procedure TForm1.vScrollBChange(Sender: TObject);
begin
Image.Top := -Units.y * VScrollb.Position;
end;
procedure TForm1.hScrollBScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
Image.Left := -Units.x * ScrollPos
end;
procedure TForm1.ScrollReset;
begin
Units.x := DEF_SCROLL_UNITS;
Units.y := DEF_SCROLL_UNITS;
if Image.Picture <> nil then
begin
Image.Top := 0;
Image.Left := 0;
HScrollb.Position := 0;
VScrollb.Position := 0;
HScrollb.Min := 0;
VScrollb.Min := 0;
HScrollb.Visible := True;
VScrollb.Visible := True;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if cuts.Checked then
begin
panel1.Caption:='截取'+ipbox.Text+'计算机的屏幕!';
bmpmap.Clear;
kz.Socket.SendText('cut');
end
else if cloma.Checked then
begin
panel1.Caption:='关闭'+ipbox.Text+'的
计算机!';
kz.Socket.SendText('ygj');
kz.Active:=false;
end
else if restart.Checked then
begin
panel1.Caption:='重新启动'+ipbox.Text+'的计算机!';
kz.Socket.SendText('yqd');
kz.Active:=false;
end
else if lock.Checked then
begin
panel1.Caption:='锁定'+ipbox.Text+'的计算机!';
kz.Socket.SendText('sdj');
end
else if unlock.Checked then
b
egin
panel1.Caption:='解锁'+ipbox.Text+'的计算机!';
kz.Socket.SendText('jsj');
end
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
myicon.