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
|
{
wndtray.dpr
*****************************************************************************
* *
* This demonstration program is public domain, witch means no copyright, *
* but also no warranty! *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
Author: Felipe Monteiro de Carvalho
}
program wndtray;
{$ifdef fpc}
{$mode objfpc}{$H+}
{$endif}
uses
{$ifdef fpc}
Interfaces,
{$endif}
Forms,
frmtest in 'frmtest.pas';
{ add your units here }
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmTrayTest, frmTrayTest);
Application.Run;
end.
|
