Marco Cantù 1998, Mastering Delphi 4
Project: SHABOUT.DPR
Project Structure
SHABOUT.DPR
program Shabout;
uses
Forms,
ShAboutF in 'ShAboutF.pas' {Form1};
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
SHABOUTF.PAS
unit ShAboutF;
interface
uses Windows, Classes, Graphics, Forms,
Controls, StdCtrls, SysUtils, ShellApi;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellAbout (Handle,
'About ShellAbout Test#makes funny programs like',
'Portions Copyright 1998 Marco Cantù',
Application.Icon.Handle);
end;
end.
SHABOUTF.DFM
object Form1: TForm1
Left = 107
Top = 165
Width = 203
Height = 94
ActiveControl = Button1
Caption = 'ShellAbout Test'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 45
Top = 17
Width = 105
Height = 33
Caption = '&About (Shell)...'
TabOrder = 0
OnClick = Button1Click
end
end
Copyright Marco Cantù 1998