» Application Borland Delphi. . . Блог программистов


Блог программистов




20072 Mar

Управление клавиатурой

Для начала маленький код для определения нажатия клавиши Print Screen:


private
procedure AppIdle(Sender: TObject; var Done: Boolean);

//…

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) 0 then
Form1.Caption := 'PrintScreen!';
Done := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle := AppIdle;
end;

А теперь программный аналог Print Screen’а:
(more…)

20072 Mar

Рабочий стол

Итак, Рабочий стол- это первое что мы видим после загрузки пользователя. Сначала я дам код, как изменить фоновый рисунок на Столе. Вот что надо написать:

implementation

Uses ShlObj, ComObj;

procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper('Путь к файлу', 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;


(more…)

20072 Mar

Апплеты в панели управления

Апплеты – это программы, которые Вы видите в панели управления, и с помощью которых можно, допустим, сделать быструю настройку, или как обычно сделать программу для удаления и обновления своей основной программы.
Начнём. Создаём обычный проект. В этом проекте ВСЁ делаем как обычно, пока код не отличается, запускаем, проверяем работу всех функций. После всего этого нажимаем Project>View source(у кого русская версия то Проект>..), короче там должны в окне, где набирали программу что-то типа этого Program Project1; и так далее. Изменяем Program на Library. Используемые модели в USES Cpl, Windows, Forms. Дальше объявим процедуру
procedure ExecuteApp;
(more…)


Облако меток

AdSense клиент компонент api ClientSocket библиотеки dll ServerSocket приложение INTERFACE шифровка байт char работа пароль учеба programmer процессор Application HANDLE Cursor C++ AssignFile хуки win api Project Internet google FASM memo исходники html функция язык System поиск GetLastError алгоритм программист programmersclub сервер форум exe сайт файл проект Assembler шифрование windows delphi