Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління
Методичка до лабораторних з ООП Лабораторна робота №8 з курсу «Об'єктно-орієнтоване програмування» Львів 2011 Лабораторна робота № 8 Використання API-функцій Мета: навчитися використовувати API-функції у проектах Delphi. Порядок роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи зміст індивідуального завдання тексти головного файлу проекту, програмних модулів та файлів форм аналіз отриманих результатів та висновки Завдання Створити проект Delphi який, використовуючи певні API-функції, реалізує певний сценарій поведінки персонажа Microsoft Agent. В індивідуальному завданні вказано: 1) дії, які виконує і коментує агент; 2) API-функції (їхні параметри), які можна застосувати; 3) додаткові джерела інформації. Варіанти завдання 1) зачитує вміст текстового файла (назва задається у вікні класу Edit); 2) GetMessageA (EM_GETLINE), ReadFile; 1) зачитує текст, введений у вікні класу Edit; 2) GetMessageA (EM_GETLINE); 1) зачитує заголовок вікна під мишкою; 2) WindowFromPoint, SendMessageA (WM_GETTEXT); 1) перемикає розкладку клавіатури; 2) ActivateKeyboardLayout; 1) зачитує назви ярликів на “Робочому столі”; 2) FindWindowA(‘Progman’), GetWindow, SendMessageA(LVM_GETITEMTEXT); 1) ховає і відновлює панель задач; 2) FindWindow, SetWindowPos; 1) викликає меню “Start”; 2) FindWindow, SendMessageA (WM_SYSCOMMAND); 1) відправляє файл у “Recycle Bin” (назва задається у вікні класу Edit); 2) GetMessageA (EM_GETLINE), SHFileOperation; 1) зачитує змінні оточення і їхні значення; 2) GetEnvironmentStringsA, GetEnvironmentVariableA; 1) повертається у напрямку мишки; 2) GetCursorPos; 1) повідомляє, чи натиснуті клавіші “Caps Lock” та “Num Lock”; 2) GetKeyboardState; 1) розкриває вікно під мишкою на повний екран; 2) WindowFromPoint, SetWindowPos; 1) повідомляє, якщо на диску залишилось місця, менше від значення, заданого у вікні класу Edit; 2) GetMessageA (EM_GETLINE), GetDiskFreeSpaceExA; 1) змінює роздільну здатність екрану; 2) ChangeDisplaySettingsA; 1) запускає аплет панелі керування (файл Control.exe з параметром, наприклад, TimeDate.cpl); 2) WinExec; 1) повідомляє поточну розкладку клавіатури; 2) GetKeyboardLayoutNameA; 1) повідомляє версію Windows; 2) GetVersionExA; 1) вирівнює ярлики на “Робочому столі”; 2) FindWindowA (‘Progman’), GetWindow, SendMessageA (LVM_ARRANGE); 1) переміщує до себе заданий ярлик на “Робочому столі”; 2) FindWindowA (‘Progman’),GetWindow,SendMessageA (LVM_SETITEMPOSITION); 1) промовляє “Click here to begin”, при наведенні мишки на кнопку “Start”; 2) GetCursorPos; Додаткова інформація Проект AgentDemo.dpr (попередньо встановити через пункт головного меню Component (Install Component компоненту AgentObjects_TLB.pas). Delphi World (архів статей). Win32 Programmer Reference Саймон Р. Windows 2000 API (відкривати за допомогою WinDjView).