mundodelphi

Winapi reference – ShellAbout window – win32.hlp

Con la función ShellAbout de la apis de windows podemos crear una ventana “sobre de” con el aspecto por defecto del sistema operativo que corre la aplicación

aquí una captura de una ventana sobre de “about window” en windows xp

Declaración de la función ShellAbout de la Winapi 32

function ShellAbout(HWND hWnd, LPCTSTR szApp, LPCTSTR szOtherStuff, HICON hIcon);

hWnd:  le pasaremos el handle de la ventana controladora
szApp:  le pasamos el texto que tendra el titulo
szotherStuff:  le pasamos el texto que queremos en el cuerpo de la ventana “about window”
hicon:  el handle de un icono

para llamar una api de windows des de nuestra aplicación tenemos que declarar ShellApi en el uses de la unidad

“uses …, ShellApi;”

y para llamar la función ShellAbout

ShellAbout(Handle, 'el nombre de tu aplicación', 'tu nombre', Application.Icon.Handle);

y wolaaa!!! ya tenemos una ventana de sobre de, en un momento, pongo la unidad entera

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    PrintSetup1: TMenuItem;
    Print1: TMenuItem;
    N2: TMenuItem;
    SaveAs1: TMenuItem;
    Save1: TMenuItem;
    N3: TMenuItem;
    Close1: TMenuItem;
    Open1: TMenuItem;
    New1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Contents1: TMenuItem;
    procedure About1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.About1Click(Sender: TObject);
begin

  ShellAbout(Handle, 'ventana sobre de...', 'neuronic', application.Icon.Handle)

end;