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:

program svc;
uses
  windows,
  winsvc;

const
  servicename = 'TESTSERVICE';
  displayname = 'Assarbad''s testservice';

procedure SERVICE_MAIN; forward;

{$INCLUDE consolehlp.pas}
{$INCLUDE service.pas}


procedure SERVICE_MAIN;
begin
  repeat
    if not paused then begin
    end;
  until stopped;
end;

begin
  PROG_MAIN;
end.					

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:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:

{******************************************************************************}
{                                                                              }
{                             Fenster-Demo                                     }
{                                                                              }
{               Copyright (c) 2001 Michael [Luckie] Puff                       }
{                           www.luckie-online.de                               }
{                          mpuff@luckie-online.de                              }
{                                                                              }
{******************************************************************************}
{                                                                              }
{ Fenster-Demo                                                                 }
{ - erzeugen eines Fensterns ohne Resourcen-Datei                              }
{ - zentrieren des Fensters auf dem Desktop                                    }
{ - Zuweisen eines Icons aus einer Resourcen-Datei                             }
{ - Nachrichtenverarbeitung                                                    }
{ - WM_DESTROY, PostQuitMessage(), WM_QUIT                                     }
{ - WM_LBUTTONDOWN                                                             }
{ - wvsprintf(), lstrcat(), TextOut                                            }
{                                                                              }
{******************************************************************************}
program fenster;

{$R resource.res}

uses
  Windows, Messages;

const
  ClassName = 'WndClass';
  AppName = 'Fenster-Demo';
  WindowWidth = 750;
  WindowHeight = 125;

var
  ahdc: HDC;
  buffer: array[0..99] of Char;
  buffer1: array[0..99] of Char;
  xPos, yPos: Integer;

{Fensterfunktion}
function WndProc(hWnd: HWND; uMsg: UINT; wParam: wParam; lParam: LParam):
  lresult; stdcall;
var
  x, y : integer;   //Variablen für Fensterposition
begin
  Result := 0;

  case uMsg of
    WM_CREATE:
      begin
        {Fenster zentrieren}
        x := GetSystemMetrics(SM_CXSCREEN);   //Screenhöhe & -breite
        y := GetSystemMetrics(SM_CYSCREEN);
        {Fenster auf neue Positionverschieben}
        MoveWindow(hWnd, (x div 2) - (WindowWidth div 2),
          (y div 2) - (WindowHeight div 2),
          WindowWidth, WindowHeight, true);
      end;
    WM_DESTROY:
      PostQuitMessage(0);
    WM_LBUTTONDOWN:
      if(MK_SHIFT or MK_LBUTTON = wParam) then
      begin
        ahdc := GetDC(hWnd);
        xPos := LoWord(lParam);
        [..]
        TextOut(ahdc, 20, 20, buffer, Length(buffer));
        ReleaseDC(hWnd, ahdc);
      end;
  else
    Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
  end;
end;

var
  {Struktur der Fensterklasse}
  wc: TWndClassEx = (
    cbSize          : SizeOf(TWndClassEx);
    Style           : CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc     : @WndProc;
    cbClsExtra      : 0;
    cbWndExtra      : 0;
    hbrBackground   : COLOR_APPWORKSPACE;
    lpszMenuName    : nil;
    lpszClassName   : ClassName;
    hIconSm         : 0;
  );
  msg: TMsg;

begin
  wc.hInstance  := hInstance;
  wc.hIcon      := LoadIcon(hInstance, MAKEINTRESOURCE(100));
  wc.hCursor    := LoadCursor(0, IDC_ARROW);

  {Fenster registrieren}
  RegisterClassEx(wc);

  {Fenster anzeigen}
  CreateWindowEx(0, ClassName, AppName, WS_CAPTION or WS_VISIBLE or WS_SYSMENU
    or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX, CW_USEDEFAULT,
    CW_USEDEFAULT, WindowWidth, WindowHeight, 0, 0, hInstance, nil);

  {Nachrichtenschleife starten}
  while GetMessage(msg,0,0,0) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;

  ExitCode := msg.wParam;
end.