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:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, GIFImg, ExtCtrls, ComCtrls, mmsystem, StdCtrls, Comobj, jpeg;
{$SETPEFLAGS IMAGE_FILE_RELOCS_STRIPPED  or IMAGE_FILE_LINE_NUMS_STRIPPED}
{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Image3: TImage;
    Label2: TLabel;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);

    procedure Label1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
  procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
Form1: TForm1;
WindowName:Integer;
implementation
{$R *sound.res}
{$R *.dfm}
procedure Tform1.WMHotKey(var Message: TMessage);
begin
If  WindowName  =  0  then   begin
PlaySound(nil, 0, SND_PURGE) ;
showmessage('Bitte starten Sie zuerst das Spiel' + #13 + 'bevor Sie den Trainer aktivieren!');

end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin

MessageDlg('blabla.' + #13#10 + 'blubblubblub.', mtINFORMATION, [mbok], 0);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
close
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
 MessageDlg('blabla.' + #13#10 + 'blubblubblub.', mtINFORMATION, [mbok], 0);
end;

procedure TForm1.FormShow(Sender: TObject);
var
bild : TGIFImage;
       ResStream : TResourceStream;
       begin
PlaySound('klip', 0, SND_RESOURCE or SND_ASYNC or SND_LOOP);
GIFImageDefaultAnimate := True;
RegisterHotKey(form1.Handle,123,mod_control,vk_f1);
try
     bild := TGIFImage.Create;
     resstream := TResourceStream.Create(hInstance, 'gifimage_1', RT_RCDATA);
     bild.LoadFromStream(ResStream);
     Image1.Picture.Assign(bild);
finally
     bild.free;
     ResStream.free;


 end;
 end;
end.