program WB;
uses
windows, messages, commctrl, XPMan; //Используемые модули
{$R icons.res}
var
WinClass : TWndClass;
hInst : HWND;
Handle : HWND;
Msg : TMSG;
hFont : HWND;
Label1, Label2, Label3, Label4, Label5, Label6: HWND;
Edit1, Edit2, Edit3, Edit4 : HWND;
cRunWithWindows : HWND;
TabSheet: HWND;
TabItem: TTCItem;
ImageList: HWND;
bNewChangePasswd, bExit : HWND;
procedure ShutDown;
begin
DeleteObject(hFont);
UnRegisterClass('MyFormClass', hInst);
ExitProcess(hInst);
end;
function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall;
var
hbrBackGnd: HBRUSH;
begin
case Msg of
WM_COMMAND:
if (lParam = bExit) and (HiWord(wParam) = BN_CLICKED) then
halt;
WM_DESTROY: ShutDown;
WM_ENDSESSION: if wParam = 1 then ShutDown;
//////////////////////////////////////////////////////////////////////////////
/// КАК ПРАВИЛЬНО ОБРАБАТЫВАТЬ????? ИЛИ МОЖЕТ БЫТЬ НУЖНО ОБРАБАТЫВАТЬ WM_PAINT??????????
//////////////////////////////////////////////////////////////////////////////
WM_CTLCOLORSTATIC: if lParam <> cRunWithWindows then
begin
hbrBackGnd := GetStockObject(NULL_BRUSH);
Result := hbrBackGnd;
exit;
end;
//////////////////////////////////////////////////////////////////////////////
end;
Result := DefWindowProc(hwnd, msg, wparam, lparam);
end;
begin
hInst := GetModuleHandle(nil);
with WinClass do
begin
Style := CS_PARENTDC;
hIcon := LoadIcon(hInst, PChar('MAINICON'));
lpfnWndProc := @WindowProc;
hInstance := hInst;
hbrBackground := COLOR_BTNFACE + 1;
lpszClassName := 'MyFormClass';
hCursor := LoadCursor(0, IDC_ARROW);
end;
InitCommonControls;
RegisterClass(WinClass);
// Создание главного окна программы
Handle := CreateWindowEx(0, 'MyFormClass', 'Настройки программы', WS_VISIBLE or WS_SYSMENU, 320, 230, 330, 312, 0, 0, hInst, nil);
// Создание шрифта
hFont := CreateFont(-11, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');
// Создание ImageList для TabSheet
ImageList := ImageList_Create(16, 16, ILC_COLOR32 or ILC_MASK, 10, 10);
ImageList_AddIcon(ImageList, LoadIcon(hInstance, 'Z0'));
ImageList_AddIcon(ImageList, LoadIcon(hInstance, 'Z1'));
// Создание TabSheet
TabSheet := CreateWindow(WC_TABCONTROL, '', WS_CHILD or WS_VISIBLE, 2, 0, 320, 227, Handle, TabSheet, hInst, nil);
SendMessage(TabSheet, WM_SETFONT, hFont, 0);
SendMessage(TabSheet, TCM_SETIMAGELIST, 0, ImageList);
// Создание вкладок на TabSheet
TabItem.mask := TCIF_TEXT or TCIF_IMAGE;
TabItem.pszText := 'Пароль';
TabItem.cchTextMax := 0;
TabItem.iImage := 0;
SendMessage(TabSheet, TCM_INSERTITEM, 0, longint(@TabItem));
TabItem.iImage := 1;
TabItem.pszText := 'Горячие клавиши';
SendMessage(TabSheet, TCM_INSERTITEM, 1, longint(@TabItem));
// Создание надписи
Label1 := CreateWindow('Static', 'Старый пароль:', WS_CHILD or SS_NOTIFY or SS_LEFT or WS_VISIBLE, 8, 24, 80, 13, Handle, 0, hInst, nil);
SendMessage(Label1, WM_SETFONT, hFont, 0);
// Создание надписи
Label2 := CreateWindow('Static', 'Новый пароль:', WS_CHILD or SS_NOTIFY or SS_LEFT or WS_VISIBLE, 8, 64, 76, 13, Handle, 0, hInst, nil);
SendMessage(Label2, WM_SETFONT, hFont, 0);
// Создание надписи
Label3 := CreateWindow('Static', 'Повторить новый пароль:', WS_CHILD or SS_NOTIFY or SS_LEFT or WS_VISIBLE, 8, 104, 131, 13, Handle, 0, hInst, nil);
SendMessage(Label3, WM_SETFONT, hFont, 0);
// Создание надписи
Label4 := CreateWindow('Static', 'Подсказка к паролю:', WS_CHILD or SS_NOTIFY or SS_LEFT or WS_VISIBLE, 8, 160, 109, 13, Handle, 0, hInst, nil);
SendMessage(Label4, WM_SETFONT, hFont, 0);
// Создание надписи
Label5 := CreateWindow('Static', 'Статус:', WS_CHILD or SS_NOTIFY or SS_LEFT or WS_VISIBLE, 8, 144, 37, 13, Handle, 0, hInst, nil);
SendMessage(Label5, WM_SETFONT, hFont, 0);
// Создание надписи
Label6 := CreateWindow('Static', 'Label6', WS_CHILD or SS_NOTIFY or SS_LEFT or WS_VISIBLE, 160, 24, 154, 197, Handle, 0, hInst, nil);
SendMessage(Label6, WM_SETFONT, hFont, 0);
// Создание Edit'a
Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or ES_AUTOHSCROLL or WS_VISIBLE, 8, 38, 145, 21, Handle, 0, hInst, nil);
SendMessage(Edit1, WM_SETFONT, hFont, 0);
// Создание Edit'a
Edit2 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or ES_AUTOHSCROLL or WS_VISIBLE, 8, 80, 145, 21, Handle, 0, hInst, nil);
SendMessage(Edit2, WM_SETFONT, hFont, 0);
// Создание Edit'a
Edit3 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or ES_AUTOHSCROLL or WS_VISIBLE, 8, 120, 145, 21, Handle, 0, hInst, nil);
SendMessage(Edit3, WM_SETFONT, hFont, 0);
// Создание Edit'a
Edit4 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '', WS_CHILD or ES_AUTOHSCROLL or WS_VISIBLE, 8, 176, 145, 21, Handle, 0, hInst, nil);
SendMessage(Edit4, WM_SETFONT, hFont, 0);
// Создание кнопки для создания/изменение пароля
bNewChangePasswd := CreateWindow('Button', 'Создать/Изменить пароль', WS_CHILD or BS_TEXT or WS_VISIBLE, 8, 200, 145, 21, Handle, bNewChangePasswd, hInst, nil);
SendMessage(bNewChangePasswd, WM_SETFONT, hFont, 0);
// Создание checkbox'a для дообавления программы в автозапуск Windows
cRunWithWindows := CreateWindow('Button', 'Запуск вместе с Windows', WS_CHILD or BS_AUTOCHECKBOX or WS_VISIBLE, 4, 230, 153, 17, Handle, 0, hInst, nil);
SendMessage(cRunWithWindows, WM_SETFONT, hFont, 0);
// Создание кнопки для закрытия окна
bExit := CreateWindow('Button', 'Закрыть', WS_CHILD or BS_TEXT or WS_VISIBLE, 4, 252, 316, 21, Handle, bExit, hInst, nil);
SendMessage(bExit, WM_SETFONT, hFont, 0);
while(GetMessage(Msg, 0, 0, 0)) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
