Учебное пособие 800564

using System.Runtime.InteropServices; using System.IO;

Выполнение задания 1:

Реализация программы с помощью функции API на языке программирования Object Pascal.

1) Для примера составим функцию CapsLock, которая позволит определить включена или выключена клавиша CapsLock. В Windows определены специальные константы для каждой клавиши. VK_CAPITAL – константа кода виртуальной клавиши CapsLock.

function CapsLock : boolean; begin

result:=(GetKeyState(VK_CAPITAL) and 1) <> 0; end;

2)Поместить на форму объект Button и подписать выполняемое действие щелчком по данной кнопке (свойство Caption). Добавить объект Edit или Label, в котором будет появляться сообщение о состоянии клавиши CapsLock.

3)В событие OnClick объекта Button ввести следующие операторы:

a:=CapsLock; if a=TRUE then

EditCL.Text:= 'нажата клавиша CapsLock ' else

EditCL.Text:=' клавиша CapsLock не нажата ';

4)Запустить программу на выполнение.

5)Самостоятельно составить функции и процедурыловушки нажатия на клавиши пользователями (не менее 5). Таблица кодов виртуальных клавиш представлена в таблице 8.

6)Составить аналогичную программу на языке C# с помощью функций API.

171

Листинг программы на языке C#: using System;

using System.Collections.Generic; using System.ComponentModel; using System.Data;

using System.Drawing; using System.Linq; using System.Text;

using System.Windows.Forms; using System.Collections; using System.Diagnostics;

using System.Runtime.InteropServices; using System.IO;

namespace Lab8

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent(); listBox1.Items.Add("Сейчас нажато");

}

private void listBox1_KeyDown(object sender, KeyEventArgs e)

{

listBox1.Items[0] = ("Отжата: " + e.KeyData.ToString());

}

private void listBox1_KeyPress(object sender, KeyPressEventArgs e)

{

listBox1.Items[0] = ("Введена: " +

e.KeyChar);

}

private void listBox1_KeyUp(object sender, KeyEventArgs e)

{

listBox1.Items[0] = ("Нажата: " + e.KeyData.ToString());

172

}

}

}

Реализация вывода состояния клавиши представлена на рис. 75.

Рис. 75. Вывод состояния клавиши

Задание 2. Разработать программу, позволяющую по установленной в программе горячей клавише возвращать активность приложения.

Ход выполнения:

Реализация программы с помощью функции API на языке программирования Object Pascal.

175

1. В Delphi создать проект на диске с уникальным име- 2. В разделе Private надо описать следующую процеду-

procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

3.Листинг процедуры имеет следующий вид: procedure TForm1.WMHotKey(var Message: TMessage); begin

application.Restore;

application.BringToFront; showmessage('Нажата CTRL-F7'); end;

4.В событие формы OnActivate добавить оператор, позволяющий назначить горячую клавишу:

RegisterHotKey(Form1.Handle, 123, mod_control, VK_F7);

5.В событие формы OnDestroy добавить оператор, отменяющий горячие клавиши:

UnregisterHotKey(Handle, 123);

6.Изменить горячую клавишу в программе.

Листинг программы на языке C#:

//Окно исчезает

if (e.KeyCode == Keys.F1)

if (this.Opacity == 1) this.Opacity = 0; else this.Opacity = 1;

//Окно минимизируется/максимизируется if (e.KeyCode == Keys.F2)

if (this.WindowState == FormWindowState.Normal) this.WindowState = FormWindowState.Maximized;

else this.WindowState = FormWindowState.Normal;

176

Задание 3. Разработать программу, позволяющую перехватить нажатие клавиш, с использованием стандартных событий объекта Form.

Ход выполнения:

(на языке программирования Object Pascal)

1.В Delphi создать проект на диске с уникальным именем.

2.В событие формы OnKeyDown добавить оператор:

if Key = VK_RIGHT then

…

3.Самостоятельно оформить экранную форму приложения, в котором надо перехватить нажатие не менее 5-ти клавиш.

Листинг программы на языке C#:

//Окно минимизируется/максимизируется if (e.KeyCode == Keys.F2)

if (this.WindowState == FormWindowState.Normal) this.WindowState = FormWindowState.Maximized; else this.WindowState = FormWindowState.Normal;

Задание 4. Разработать программу, позволяющую менять раскладку клавиатуры.

Ход выполнения:

(на языке программирования Object Pascal)

1.В Delphi создать проект на диске с уникальным именем.

2.В программе использовать переменную Layout

Layout: array[0.. KL_NAMELENGTH] of char;

3.На форме создать объекты Button1, Button2, Edit, которые позволят переключать раскладку клавиатуры с русской на английскую и проверить работоспособность переключения.

177

4. Для русской раскладки клавиатуры используется функция:

LoadKeyboardLayout( StrCopy (Layout,'00000419'),KLF_ACTIVATE)

Для английской раскладки клавиатуры – функция: LoadKeyboardLayout(StrCopy( Lay-

out,'00000409'),KLF_ACTIVATE)

Листинг программы на языке C#:

//Меняет раскладку клавиатуры if (e.KeyCode == Keys.F3)

if (lang)

{

//Меняем язык с помощью WinAPI-функции

Win32API.LoadKeyboardLayout("00000419", 1); //Выводим на экран результат изменения lLog.Items[1] = "RUS";

//Запоминаем, что текущий язык изменен lang = false;

}

else

{

Win32API.LoadKeyboardLayout("00000409", 1); lLog.Items[1] = "ENU";

lang = true;

}

Задание 5. Дан листинг программы запуска внешнего приложения и ожидания его завершения. Подключите ее к программе предыдущего задания и замените внешнее приложение.

Листинг программы на языке Object Pascal с функцией

API:

procedure TForm1.Button1Click(Sender: TObject); var

178

si : Tstartupinfo;

p : Tprocessinformation; begin

FillChar( Si, SizeOf( Si ) , 0 ); with Si do begin

cb := SizeOf( Si);

dwFlags := startf_UseShowWindow; wShowWindow := 4;

end;

Application.Minimize;

Createprocess(nil,'notepad.exe',nil,nil,false, Create_default_error_mode,nil,nil,si,p); Waitforsingleobject(p.hProcess,infinite); Application.Restore;

end;

Листинг программы на языке С#:

//Запускаем блокнот

if (e.KeyCode == Keys.F4)

{

//создаем новый процесс

Process p = new Process();

//Задаем путь к файлу. Environment.SystemDirectory – //путь к системной папке

p.StartInfo.FileName = (Environment.SystemDirectory+@"\notepad.exe");

//Запускаем процесс p.Start();

}

Задание 6. Разработать программу, позволяющую выдавать координаты мыши с помощью функций API.

Просмотреть функции API, описанные выше и относящиеся к данному заданию, применить их в приложении (самостоятельно).

179

Выполнение задания:

Листинг программы на языке С #: internal sealed class Win32API

{

[DllImport("user32.dll")]

public static extern long LoadKeyboardLayout( string pwszKLID, // input locale identifier

}

[DllImport("user32.dll")]

static extern bool GetCursorPos(ref Point lp);

private void timer1_Tick(object sender, EventArgs e)

{

Point p = new Point(); // Point это тип переменной (точка или пиксель)

GetCursorPos(ref p);

label1.Text = "X = " + p.X.ToString(); label2.Text = "Y = " + p.Y.ToString();

} // декларация API функции GetCursorPos

Вопросы по теме:

1.Функции ОС по управлению устройствами ввода-

вывода.

2.Типы устройств ввода-вывода.

3.Организация программного обеспечения вводавывода. Основные идеи.

4.Четыре слоя программного обеспечения ввода-вывода.

180