main_unit.pas

ＤＥＬＰＨＩ开发包

  //获取服务端的通道数(服务器IP地址)
  Showmsg(PChar('正在连接的服务器端共有 ' + IntToStr(Get_Server_ChanNum) + ' 个通道。'));
end;

procedure Tmain.Button19Click(Sender: TObject);
begin
  //获取工作状态
  Showmsg(Get_Client_State)
end;

procedure Tmain.Button20Click(Sender: TObject);
begin
  ShowMessage('SDK版本号为: ' + Get_SDK_Version()); //获取SDK版本号;
end;

procedure Tmain.Button21Click(Sender: TObject);
begin
  //获取已经解码的总帧数
  Showmsg(PChar('已经解码的总帧数为：' + IntToStr(Get_Client_FrameNum())));
end;

procedure Tmain.Button45Click(Sender: TObject);
begin
  ShowMessage('您的机器码是: ' + Get_UserID); //获取机器码
end;

procedure Tmain.Button46Click(Sender: TObject);
begin
  if Get_SDK_Reg then                   //获取注册状态
    ShowMessage('已注册')
  else
    ShowMessage('未注册');
end;

procedure Tmain.Button33Click(Sender: TObject);
begin
  SpinEdit2.Value := Get_Volume_Master  //获取Master音量
end;

procedure Tmain.Button39Click(Sender: TObject);
begin
  SpinEdit2.Value := Get_Volume_WaveOut //获取WaveOut音量
end;

procedure Tmain.Button35Click(Sender: TObject);
begin
  //静音自动切换
  Set_Volume_Mute
end;

procedure Tmain.Button40Click(Sender: TObject);
begin
  SpinEdit2.Value := Get_Volume_Synth   //获取Synth音量
end;

procedure Tmain.Button38Click(Sender: TObject);
var
  Ld, Dbd, Bhd, Sd  : Byte;
begin
  //获取视频参数（通道号,亮度，对比度，饱和度，色度）
  Get_Video_Para(SpinEdit1.Value, Ld, Dbd, Bhd, Sd);
  SpinEdit3.Value := Ld;
  SpinEdit4.Value := Dbd;
  SpinEdit5.Value := Bhd;
  SpinEdit6.Value := Sd;
end;

procedure Tmain.Button44Click(Sender: TObject);
begin
  //设置视频参数（通道号,亮度，对比度，饱和度，色度）
  Set_Video_Para(SpinEdit1.Value, SpinEdit3.Value, SpinEdit4.Value, SpinEdit5.Value, SpinEdit6.Value)
end;

procedure Tmain.Button47Click(Sender: TObject);
begin
  //发送邮件:请正确填写再发送
  //Send_Mail('smtp.163.com','用户名','邮件密码','发送人邮箱','收件人邮箱','邮件主题','邮件正文')
end;

procedure Tmain.Label21Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar('http://www.prowt.com/SDK2/'), nil, nil, SW_SHOW);
end;

procedure Tmain.Button61Click(Sender: TObject);
begin
  {
  注意：因调度模块内部线程的原因，请脱离ＩＤＥ环境执行此处代码，否则会引起异常
  }

  if Button61.Caption = '开始对讲' then
  begin
    //初始化语音模块
    if not Init_NetTalking then Exit;
    //开始语音对讲(参数：对方IP地址，也可以是形如xxx.xxx.xxx.255的广播地址，使用端口）
    Start_NetTalking(Edit5.Text, Edit6.Text);
    Button61.Caption := '停止对讲'
  end
  else
  begin
    Stop_NetTalking;                    //停止语音对讲
    DeInit_NetTalking;                  //注销语音模块
    Button61.Caption := '开始对讲'
  end;
end;

procedure Tmain.Button53Click(Sender: TObject);
var
  HardFlag          : THardFlag;
begin
  Memo1.Clear;
  HardFlag := Get_HardwareFlag;
  with HardFlag do
    Memo1.Lines.Append
      (
      'BIOS信息 ' + BiosInfo + #13#10 +
      'BIOS名称 ' + BIOSName + #13#10 +
      'BIOS版权 ' + BIOSCopyright + #13#10 +
      'BIOS扩展信息 ' + BIOSExtendedInfo + #13#10 +
      'BIOS日期 ' + DateTimeToStr(BIOSDate) + #13#10 +
      #13#10 +
      'IDE硬盘序列号 ' + IDEDiskSerial + #13#10 +
      'IDE硬盘型号 ' + IDEDiskType + #13#10 +
      'IDE硬盘硬件版本 ' + IDEDiskVersion + #13#10 +
      '扇区总数 ' + IntToStr(IDEDiskTotalAddressableSectors) + #13#10 +
      '扇区容量 ' + IntToStr(IDEDiskSectorCapacity) + #13#10 +
      '每扇区磁道数 ' + IntToStr(IDEDiskSectorsPerTrack) + #13#10 +
      'C盘序列号 ' + IDEDiskCSerial + #13#10 +
      #13#10 +
      'CPU序列号 ' + CPUSerial + #13#10 +
      'CPU频率 ' + CPUSpeed + #13#10 +
      #13#10 +
      '网址地址 ' + MACAddress + #13#10 +
      #13#10 +
      '显示器当前刷新率 ' + IntToStr(DisplayFrequency) + #13#10 +
      '显卡类型 ' + DisplayDevice + #13#10 +
      #13#10 +
      '物理内存总量 ' + IntToStr(TotalPhysMemory) + #13#10 +
      '可用物理内存 ' + IntToStr(AvailPhysMemory) + #13#10 +
      '对换区总量 ' + IntToStr(TotalPageFileMemory) + #13#10 +
      '可用的对换区 ' + IntToStr(AvailPageFileMemory) + #13#10 +
      '虚拟内存总量 ' + IntToStr(TotalVirtualMemory) + #13#10 +
      '可用虚拟内存 ' + IntToStr(AvailVirtualMemory) + #13#10 +
      '内存使用率 ' + IntToStr(MemoryLoad)
      );
end;

procedure Tmain.Button54Click(Sender: TObject);
var
  WindowsFlag       : TWindowsFlag;
const
  Is64              : array[Boolean] of string = ('否', '是');
begin
  Memo1.Clear;
  WindowsFlag := Get_WindowsFlag;
  with WindowsFlag do
    Memo1.Lines.Append
      (
      'Windows 版本号 ' + WindowsVersion + #13#10 +
      'Windows 名称 ' + WindowsName + #13#10 +
      'Windows 版本号(增强型） ' + WindowsVersionEx + #13#10 +
      'Windows 名称(增强型) ' + WindowsNameEx + #13#10 +
      'Windows SP版本号 ' + WindowsServicePackVersion + #13#10 +
      '是否64位操作系统 ' + Is64[OSIsWindows64] + #13#10 +
      #13#10 +
      '计算机名称 ' + Computername + #13#10 +
      '登录用户名 ' + Username + #13#10 +
      '域名 ' + DomainName + #13#10 +
      '注册单位 ' + RegisteredCompany + #13#10 +
      '注册用户 ' + RegisteredOwner + #13#10 +
      '外壳程序名称 ' + ShellProcessName + #13#10 +
      #13#10 +
      'Windows 路径 ' + WindowsDirectory + #13#10 +
      'System 路径 ' + SystemDirectory + #13#10 +
      'Common 路径 ' + CommonFilesFolder + #13#10 +
      '当前路径 ' + CurrentFolder + #13#10 +
      'ProgramFiles 路径 ' + ProgramFilesFolder + #13#10 +
      'Desktop 路径 ' + DesktopFolder + #13#10 +
      'ProgramsFolder件夹 ' + ProgramsFolder + #13#10 +
      'PersonalFolder 路径 ' + PersonalFolder + #13#10 +
      'Favorites 路径 ' + FavoritesFolder + #13#10 +
      'Startup 路径 ' + StartupFolder + #13#10 +
      'Recent 路径 ' + RecentFolder + #13#10 +
      'SendToFo 路径 ' + SendToFolder + #13#10 +
      'Startmenu 路径 ' + StartmenuFolder + #13#10 +
      'DesktopDirectory 路径 ' + DesktopDirectoryFolder + #13#10 +
      'Fonts 路径 ' + FontsFolder + #13#10 +
      'CommonStartup 路径 ' + CommonStartupFolder + #13#10 +
      'CommonFavorites 路径 ' + CommonFavoritesFolder + #13#10 +
      'Templates 路径 ' + TemplatesFolder + #13#10 +
      'InternetCache 路径 ' + InternetCacheFolder + #13#10 +
      'Cookies 路径 ' + CookiesFolder + #13#10 +
      'History 路径 ' + HistoryFolder
      );
end;

procedure Tmain.Button68Click(Sender: TObject);
var
  ID                : string;
begin
  ID := Get_USBStor_ID;
  if ID = '' then
    MessageBox(0, PChar('没有发现ＵＳＢ设备！' + #13#10), PChar('提示'), MB_OK + MB_ICONWARNING)
  else
    MessageBox(0, PChar('ＵＳＢ ID：' + #13#10 + ID), PChar('提示'), MB_OK + MB_ICONINFORMATION);
end;

procedure Tmain.Button60Click(Sender: TObject);
begin
  MessageBox(0, PChar('www.prowt.com域名指向的IP地址：' + #13#10 + Get_Domain_IP('http://www.prowt.com')), PChar('提示'), MB_OK + MB_ICONINFORMATION);
end;

procedure Tmain.Button67Click(Sender: TObject);
var
  S0, S1, S2        : string;
begin
  S0 := DateTimeToStr(Now);             //临时生成一个原始字串供加解密用

  S1 := Base64Encode(S0);
  S2 := Base64Decode(S1);

  MessageBox(0,
    PChar
    (
    '原始字串：' + #13#10 +
    S0 + #13#10 + #13#10 +
    '加密后：' + #13#10 +
    S1 + #13#10 +
    '解密后：' + #13#10 +
    S2
    ),
    PChar('提示'), MB_OK + MB_ICONINFORMATION);
end;

procedure Tmain.Button55Click(Sender: TObject);
begin
  //禁用CtrlAltDel
  Set_CtrlAltDel_Disanbled
end;

procedure Tmain.Button56Click(Sender: TObject);
begin
  //使用CtrlAltDel
  Set_CtrlAltDel_Eanbled
end;

procedure Tmain.Button59Click(Sender: TObject);
begin
  Set_Clock_Eanbled
end;

procedure Tmain.Button66Click(Sender: TObject);
begin
  Set_WINkeys_Eanbled
end;

procedure Tmain.Button65Click(Sender: TObject);
begin
  Set_WINkeys_Disanbled
end;

procedure Tmain.Button49Click(Sender: TObject);
begin
  Set_Clock_Disanbled
end;

procedure Tmain.Button58Click(Sender: TObject);
begin
  //显示桌面
  Set_DeskTop_Eanbled
end;

procedure Tmain.Button57Click(Sender: TObject);
begin
  //禁用桌面
  Set_DeskTop_Disanbled
end;

procedure Tmain.Button63Click(Sender: TObject);
begin
  Set_AltTab_Disanbled
end;

procedure Tmain.Button64Click(Sender: TObject);
begin
  Set_AltTab_Eanbled
end;

end.