(************************************************************************
*    This File is Part of the AHM Triton Tools                          *
*    for Borland Delphi and C++ Builder.                                *
*************************************************************************
* Copyright © 1995-1999 Alexander H. Mehlhorn (AHM) and Tritontools.com *
* All Rights reserved.                                                  *
*                                                                       *
*    For more Information contact us at                                 *
*    E-Mail : support@tritontools.com                                   *
*    URL : http://www.tritontools.com                                   *
*                                                                       *
*    AHM is copyright by Alexander H. Mehlhorn                          *
*    All Parts of this Collection were developed,                       *
*    designed and implemented by AHM                                    *
*                                                                       *
*    Under no Circumstances may you distribute this file                *
*    in this or any other format. This File is supplied                 *
*    as Evaluation of Source only. No Delphi Components may be developed*
*    using extracts or subsets of this code without expressed permission*
*    by AHM.                                                            *
*                                                                       *
*************************************************************************)

unit AHMTShellAbout;

interface

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

type
  TAHMShellAbout = class(TAHMDialogComponent)
  private
    ffirst,ss : string;
    finfo,FTitleLine : String;
  protected
  public
    Function Execute : Boolean; override;
  published
    property TitleLine : String read FTitleLine write FTitleLine;
    Property InfoLine : String read finfo write finfo;
    Property FirstLine : String read ffirst write ffirst;
  end;

implementation

Function TAHMShellAbout.Execute : Boolean;
begin
  inherited Execute;
  ss:=concat(FTitleLine,'#',ffirst);
  Shellabout(0,pchar(ss),pchar(finfo),0);
  result:=true;
end;

end.
