- {
- » Microsoft About
- » MAsterC
- » 30/04/04
- » Version 1.0
- » www.delphifr.com
- }
- unit about;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ShellAPI;
- // On déclare "ShellAPI" dans les USES
-
- type
- TMainForm = class(TForm)
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- MainForm: TMainForm;
-
- implementation
-
- {$R *.dfm}
-
- procedure TMainForm.Button1Click(Sender: TObject);
- begin
- ShellAbout(Handle,'Delphi Codes Source','www.delphifr.com',7); // Ici, on affiche la boîte "Microsoft About DialogBox", puis on complète avec nos informations.
- // Le nombre "5" représente l'icône dans le About. Voici la liste,
- // 3,5,7,9,11,13,15,17,19,21,23, etc...
- end;
-
- end.
{
» Microsoft About
» MAsterC
» 30/04/04
» Version 1.0
» www.delphifr.com
}
unit about;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
// On déclare "ShellAPI" dans les USES
type
TMainForm = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.Button1Click(Sender: TObject);
begin
ShellAbout(Handle,'Delphi Codes Source','www.delphifr.com',7); // Ici, on affiche la boîte "Microsoft About DialogBox", puis on complète avec nos informations.
// Le nombre "5" représente l'icône dans le About. Voici la liste,
// 3,5,7,9,11,13,15,17,19,21,23, etc...
end;
end.