UN ABOUT... À LA MICROSOFT

{
» 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.