36 lines
641 B
Plaintext
36 lines
641 B
Plaintext
unit About;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls, ImageEnProc, ImageEnIO,
|
|
ImageEnView, ieview;
|
|
|
|
type
|
|
TfrmAboutBox = class(TForm)
|
|
Panel1: TPanel;
|
|
ProductName: TLabel;
|
|
Copyright: TLabel;
|
|
Label1: TLabel;
|
|
OKButton: TButton;
|
|
procedure Label1Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, ShellAPI;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmAboutBox.Label1Click(Sender: TObject);
|
|
begin
|
|
ShellExecute(Handle, 'open', PChar('http://www.imageen.com'), nil, nil, SW_MAXIMIZE);
|
|
end;
|
|
|
|
end.
|