[hide=99999]procedure  TForm1.getwindows;    //查看进程 
  var 
        hCurWindow:  HWnd;    //  窗口句柄 
        WinText:  array  [0..255]  of  char; 
        s:string; 
  begin 
            s:=''; 
            //  获取第一个窗口的句柄 
            hCurWindow  :=  GetWindow(Handle,  GW_HWNDFIRST); 
            while  hCurWindow  <>  0  do 
            begin 
                      //  获取窗口的名称 
                      if  GetWindowText(hCurWindow,  @WinText,  255)>0  then 
                            s:=s+StrPas(@WinText)+#10; 
                      //  获取下一个窗口的句柄 
                      hCurWindow:=GetWindow(hCurWindow,  GW_HWNDNEXT); 
            end; 
  send('program'+s); 
  end; 
   
  procedure  TForm1.getdriveinfo;  //查看驱动器信息 
  var 
        d:dword; 
        i:byte; 
        s,sd:string; 
        la,lb,p:int64; 
  begin 
  s:='本机中的逻辑驱动器有:'+#10; 
  d:=getlogicaldrives; 
  for  i:=0  to  25  do  begin 
      if  ((d  shr  i)  and  1=1)  then  begin 
        sd:=chr(i+ord('A')); 
        s:=s+sd+'--'; 
        if  i<2  then  s:=s+'软盘驱动器'+#10 
        else  begin 
          case    GetDriveType(pchar(sd+':\'))  of 
            0:  s:=s+'驱动器形式不能确定'; 
            1:  s:=s+'根目录不存在'; 
            2:  s:=s+'可移动的驱动器'; 
            3:  s:=s+'硬盘驱动器'; 
            4:  s:=s+'远程(网络)驱动器'; 
            5:  s:=s+'CD-ROM驱动器'; 
            6:  s:=s+'虚拟驱动器'; 
            end; 
            if  disksize(i+1)<>-1  then 
            if  GetDiskFreeSpaceex(PChar(sd+':\'),la,lb,@p)=true  then 
            s:=s+'  容量为'+FormatFloat('###,##0',lb) 
                    +'  剩余空间为'+FormatFloat('###,##0',la) 
                    +#10; 
            if    disksize(i+1)=-1    then  s:=s+'    驱动器没准备好'+#10; 
            end; 
            end; 
            end; 
  send('driveinfo'+s); 
  end;  [/hide]