begin process at 2008 08 29 23:46:52
1 233 952 membres
470 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UN ABOUT... À LA MICROSOFT


Information sur la source

Catégorie :API Niveau : Débutant Date de création : 01/05/2004 Date de mise à jour : 12/04/2005 05:04:00 Vu / téléchargé: 2 812 / 374

Note :
3 / 10 - par 2 personnes
3,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Voici comment utilisé le About de Microsoft dans vos programmes.

Source

  • {
  • » 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.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • about.~dfmTélécharger ce fichier [Réservé aux membres club]1 280 octets
  • about.~pasTélécharger ce fichier [Réservé aux membres club]1 460 octets
  • about.dcuTélécharger ce fichier [Réservé aux membres club]4 570 octets
  • about.dfmTélécharger ce fichier [Réservé aux membres club]1 280 octets
  • about.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 448 octets
  • maboutbx.~dprTélécharger ce fichier [Réservé aux membres club]197 octets
  • maboutbx.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier434 octets
  • maboutbx.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 353 octets
  • maboutbx.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier250 octets
  • maboutbx.resTélécharger ce fichier [Réservé aux membres club]1 220 octets

Télécharger le zip

12 avril 2005 05:01:00 :
Correction
12 avril 2005 05:04:00 :
Encore des corrections de code...
  • signaler à un administrateur
    Commentaire de ni69 le 14/06/2004 12:16:28

    ça sert à quoi au final ?

  • signaler à un administrateur
    Commentaire de MAsterC le 14/06/2004 15:16:16

    Sa affiche le About de Microsoft, sauf avec des donnés.

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS