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:

function EnumDfmNameProc(hModule: THandle; lpszType, lpszName: PChar;
  lParam: Integer): Boolean; stdcall;
var
  rs: TResourceStream;
  //Buf: String;
begin
  rs := TResourceStream.Create(hModule, lpszname, lpszType); // load resource in memory
  try
    try
      //setlength(buf,4);
      //rs.Read(Buf[1], 4); // read the first 4 bytes
      //if Buf = 'TPF0' then // is it a DFM resource?
      //begin
        TStrings(lParam).Add(StrPas(lpszName));
      //end;
    except
      raise;
    end;
  finally
    rs.free;
  end;
  Result := True;
end;

function TForm_DFMChooseRes.loadFile(filename:string):integer;
begin
  freelibrary(hModule);
  Listbox1.Clear;
  hModule:=LoadLibraryEx(PCHAR(filename),0,LOAD_LIBRARY_AS_DATAFILE);
  if hModule <> 0 then
  begin
    fName:=filename;
    EnumResourceNames(hModule, RT_RCDATA,@EnumDfmNameProc, Integer(Listbox1.Items));
  end;
  result:=hModule;
end;

procedure TForm_DFMChooseRes.getFormData(s:TStrings);
var rs:TResourceStream;
begin
  if hModule<>0 then
  begin
    rs :=TResourceStream.Create(hModule,formname,RT_RCDATA);
    Memo1.LoadFromStream(rs);
    rs.free;
    close;
  end;
end;					

1:
2:
3:
4:
5:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, MConnect, SConnect, Menus, ExtCtrls, ImgList, TypInfo,
  WebServExp, WSDLBind, XMLSchema, WSDLPub, StdCtrls, ComCtrls, DBXpress,
  SqlExpr, FMTBcd, jpeg, OleCtrls, SHDocVw;					

1:
2:
3:
4:
5:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, MConnect, SConnect, Menus, ExtCtrls, ImgList, TypInfo,
  WebServExp, WSDLBind, XMLSchema, WSDLPub, StdCtrls, ComCtrls, DBXpress,
  SqlExpr, FMTBcd, jpeg, OleCtrls, SHDocVw,About;					

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:

unit probe2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, MConnect, SConnect, Menus, ExtCtrls, ImgList, TypInfo,
  WebServExp, WSDLBind, XMLSchema, WSDLPub, StdCtrls, ComCtrls, DBXpress,
  SqlExpr, FMTBcd, jpeg, OleCtrls, SHDocVw,About;
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Optionen1: TMenuItem;
    Hilfe1: TMenuItem;
    beruns1: TMenuItem;
    rueCombatElite1: TMenuItem;
    WolfensteinEnemyTerritory1: TMenuItem;
    Spiel1: TMenuItem;
    berdenClan1: TMenuItem;
    Server1: TMenuItem;
    Server2: TMenuItem;
    SpielStarten1: TMenuItem;
    SpielStarten2: TMenuItem;
    Exit1: TMenuItem;
    StartTheAllSeeingAye1: TMenuItem;
    N1: TMenuItem;
    Background: TImage;
    Label1: TLabel;
    Label3: TLabel;
    procedure beruns1Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure StartTheAllSeeingAye1Click(Sender: TObject);
    procedure Server1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Server2Click(Sender: TObject);
    procedure SpielStarten1Click(Sender: TObject);
    procedure SpielStarten2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
CLOSE
end;

procedure TForm1.SpielStarten2Click(Sender: TObject);
begin
 WinExec('"D:\Programme\Wolfenstein - Enemy Territory\ET.exe" +set fs_game tcetest +set com_hunkMegs 192 +set com_zoneMegs 64 +set com_soundMegs 64',1);
end;

procedure TForm1.SpielStarten1Click(Sender: TObject);
begin
WinExec('D:\Programme\Wolfenstein - Enemy Territory\ET.exe',1);
 end;

procedure TForm1.Server2Click(Sender: TObject);
begin
WinExec('D:\Programme\Wolfenstein - Enemy Territory\ETDED.exe +set fs_game -=cyber_mod=- +exec server.cfg',1);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
CLOSE
end;

procedure TForm1.Server1Click(Sender: TObject);
begin
WinExec('D:\Programme\Wolfenstein - Enemy Territory\ETDED.exe +set fs_game tcetest +exec server.cfg',1);
end;

procedure TForm1.StartTheAllSeeingAye1Click(Sender: TObject);
begin
WinExec('"D:\Programme\The All-Seeing Eye\eye.exe"',1);

end;

function GetUsername: String;
var
  Buffer: array[0..255] of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError; //RaiseLastWin32Error; {Bis D5};
  SetString(Result, Buffer, Size - 1);

end;

procedure TForm1.Label3Click(Sender: TObject);
begin
Label3.Caption := GetUsername;
end;

procedure TForm1.beruns1Click(Sender: TObject);
begin
FormularAbout.Show
end;

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:

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    OKButton: TButton;
    procedure OKButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
EXIT
end;

end.					

1:
2:
3:

var
  AboutBox: TAboutBox;
  AboutBox: AboutBox.show;