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

Для начала маленький код для определения нажатия клавиши 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…)

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

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;

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