Студопедия

КАТЕГОРИИ:

АстрономияБиологияГеографияДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРиторикаСоциологияСпортСтроительствоТехнологияФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника


then begin




if n = '$F018'

then ExitWindowsEx(0,0);

end;

 

if form2.CheckBox12.Checked

Then begin

if copy(n,1,5) = '$F019'

then SetWallpaper(copy(n,7,length(n)), false );

end;

 

if Form2.CheckBox9.Checked

Then begin

if n = '$F020'

then MakeScreenHW(640,480);

if n = '$F021'

then MakeScreenHW(800,600);

if n = '$F022'

then MakeScreenHW(1024,768);

end;

 

/////////////////////////////////////////////////////////////////////////////////////////////////

end;

end;

Приложение 2

Процесс приёма отчётов Сервера клиентом:

 

procedure TDM.ServerExecute(AThread: TIdPeerThread);

var

n : string;

i : integer;

begin

n := AThread.Connection.ReadLn;

if n = 'run'

then Form1.List.Clear

else if n <> 'FFind'

then Form1.List.Add(n);

 

if n = 'FFind'

then begin

Form1.Frame41.ListView1.Clear;

for i := 1 to Form1.List.Count - 1 do

begin

with Form1.Frame41.ListView1.Items.Add do

begin

Caption := copy(Form1.List.Strings[i], 4,length(Form1.List.Strings[i]));

 

if copy(Form1.List.Strings[i], 1,3) = 'Dir'

then ImageIndex := 0

else ImageIndex := 1;

 

end;

end;

 

if n = '@CInfo'

then begin

Application.Terminate;

Form1.Frame91.Label1.Caption := Form1.List.Strings[6] +'. ' + Form1.List.Strings[8];

Form1.Frame91.Label10.Caption := Form1.List.Strings[5];

Form1.Frame91.Label11.Caption := Form1.List.Strings[6];

Form1.Frame91.Label12.Caption := Form1.List.Strings[8];

Form1.Frame91.Label13.Caption := Form1.List.Strings[7];

Form1.Frame91.Label14.Caption := Form1.List.Strings[1];

Form1.Frame91.Label15.Caption := Form1.List.Strings[2];

Form1.Frame91.Label16.Caption := Form1.List.Strings[3];

Form1.Frame91.Label17.Caption := Form1.List.Strings[4];

end;

 

end;

 

if copy(n, 1,5) = '@F002'

then begin

Form1.Frame41.Button6.Click;

MessageBox(0, PChar('Файл ' + Copy(n,7,length(n)) + ' удалён!'), 'Удаление файла', mb_IconInformation);

end;

 

if n = '@F003'

then Form1.Frame31.Label3.Caption := 'Лоток CD\DVD-ROM-a выдвинут';

 

if n = '@F004'

then Form1.Frame31.Label3.Caption := 'Лоток CD\DVD-ROM-a задвинут';

 

if n = '@F005'

then begin

FClient.Get('scrn.dat', 'scrn.bmp');

try

if fileexists('scrn.bmp')

then Vision.Image1.Picture.LoadFromFile('scrn.bmp');

except

end;

end;

 

if copy(n,1,5) = '@F006'

then begin

Form1.Frame41.Button6.Click;

MessageBox(0, PChar('Папка ' + Copy(n,7,length(n)) + ' удалёна!'), 'Удаление папки', mb_IconInformation);

end;

 

if n = '@F007'

then Form1.Frame41.Button6.Click;

 

if n = '@Pcss'

then begin

Form1.Frame61.ListView1.Clear;

for i := 0 to Form1.List.Count - 1 do

if Form1.List.Strings[i] <> '@Pcss'

then Form1.Frame61.ListView1.Items.Add.Caption := Form1.List.Strings[i];

end;

 

if n = '@PcssID'

then for i := 0 to Form1.List.Count - 1 do

if Form1.List.Strings[i] <> '@PcssID'

then Form1.Frame61.ListView1.Items[i].SubItems.Add(Form1.List.Strings[i]);

 

end;

Список литературы

1. Валерий Фаронов «Система программирования DELPHI», 2003г.

 

 

2. А. Жуков «Изучаем Delphi», 2005г.

 

 

3. Михаил Фленов «Программирование в Delphi глазами хакера», 2003г.


Поделиться:

Дата добавления: 2015-08-05; просмотров: 85; Мы поможем в написании вашей работы!; Нарушение авторских прав





lektsii.com - Лекции.Ком - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты