unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,mmsystem, StdCtrls,ShellApi,Winsock, Menus, ScktComp;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
MainMenu1: TMainMenu;
Plik1: TMenuItem;
Autorzy1: TMenuItem;
Zamknij1: TMenuItem;
ClientSocket1: TClientSocket;
Label1: TLabel;
Edit1: TEdit;
Button9: TButton;
Button10: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Zamknij1Click(Sender: TObject);
procedure Autorzy1Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.socket.SendText('cdopen'); // 'cdopen' jest to zmienna ktora klient wysyla do server
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.socket.SendText('cdclose');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,1);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
SendMessage(Application.Handle,wm_SysCommand,SC_MonitorPower,-1);
//włączenie monitora
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(Handle,'open','rundll32','krnl386.exe,exitkernel',nil,SW_SHOWNORMAL);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT,0);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
ExitWindowsEx( EWX_POWEROFF,0);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
ExitWindowsEx ( EWX_LOGOFF,0);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested:WORD;
wsaData:TWSAData;
begin
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Zamknij1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Autorzy1Click(Sender: TObject);
begin
form2.showmodal;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
clientsocket1.Address:=edit1.text; // adres ip servera do ktorego bedziemy sie laczyc
clientsocket1.active:=true; // To nam bedzie potrzebne do laczenia z serverem
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
clientsocket1.active:=false; // client ma sie rozlaczyc
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage('Klient Polaczony z Serverem ') // Wyskoczy nam okienko powiadomieniem
end;
end.[/b]