Hallo!
Ich habe ein Problem: Grübelnd...
Ich möchte dass bei meinem Programm im Schließen Menü außer den wichtigen Befehlen wie Schließen,
Minimieren ect. ein eigener Text steht. (so wie bei Inno Setup) Nun habe ich mir den Source von Inno
Setup angesehen, aber mit diesem Source funktioniert es leider nicht. Wenn das Programm startet,
dann hängt sich das Programm auf.
Was könnte ich tun?
mfg muppet max
Danke für jede Hilfe!
Hier noch der Source:
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:
| unit about;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMSysCommand (var Message: TWMSysCommand); message WM_SYSCOMMAND;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
SystemMenu: HMenu;
begin
SystemMenu := GetSystemMenu(Handle, False);
AppendMenu (SystemMenu, MF_SEPARATOR, 0, nil);
AppendMenu (SystemMenu, MF_STRING, 9999, PChar('Über Test'));
end;
procedure TForm1.WMSysCommand (var Message: TWMSysCommand);
begin
if (Message.CmdType = 9999) then
MessageDlg('Testbox', mtCustom, [mbYes], 0)
else
inherited;
end;
end. |
