/
ClockWork.dpr
executable file
·66 lines (55 loc) · 1.51 KB
/
ClockWork.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
(*
THIS IS YOUR LIFE
& IT'S ENDING ONE MINUTE AT A TIME
(c) Fight Club / Tyler Durden
ClockWork v1.4 (c) D.J. NiKe
djnike@omen.ru
2:5045/66.45
*)
program ClockWork;
uses Windows, Messages;
{$R *.RES}
const fc_st_life = 'THIS IS YOUR LIFE & IT''S ENDING ONE MINUTE AT A TIME (c) Fight Club / Tyler Durden';
var WinClass: TWndClassA;
Inst, Handle, Button1, Label1, Edit1: Integer;
Msg: TMsg;
hFont: Integer;
function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
{ Checks for messages }
if (lParam = Button1) and (uMsg = WM_COMMAND) then
// CheckPassword;
if uMsg = WM_DESTROY then
Halt;
end;
procedure CreateMainWindow;
begin
Inst := hInstance;
with WinClass do
begin
style := CS_CLASSDC or CS_PARENTDC;
lpfnWndProc := @WindowProc;
hInstance := Inst;
hbrBackground := color_btnface + 1;
lpszClassname := 'CLOCKWORK_MWND';
hCursor := LoadCursor(0, IDC_ARROW);
end; { with }
RegisterClass(WinClass);
{ ** Create Main Window ** }
Handle := CreateWindowEx(WS_EX_WINDOWEDGE, 'AG_TESTWINDOW', 'ClockWork',
WS_VISIBLE or WS_SIZEBOX or WS_CAPTION or WS_SYSMENU,
363, 278, 305, 65, 0, 0, Inst, nil);
end;
procedure Run;
begin
while (GetMessage(Msg, Handle, 0, 0)) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end; { with }
end;
begin
CreateMainWindow;
Run;
end.