infoscreen.pas

来自「wbs43open-src.zip 数字隐藏工具」· PAS 代码 · 共 58 行

{unit infoscreen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, MultiLang, ShellAPI;

type
  TForm12 = class(TForm)
    smartware: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    procedure smartwareClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form12: TForm12;

implementation

{$R *.DFM}

procedure TForm12.smartwareClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,'open',PChar(ml.GetCodeString('infoscreen',1)),'','',SW_SHOW);
end;

procedure TForm12.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm12.FormCreate(Sender: TObject);
begin
  Form12.Caption:=ml.GetComponentString('infoscreen.Form12.Caption');
  Label1.Caption:=ml.GetComponentString('infoscreen.Label1.Caption');
  Label2.Caption:=ml.GetComponentString('infoscreen.Label2.Caption');
  Label3.Caption:=ml.GetComponentString('infoscreen.Label3.Caption');
  Label4.Caption:=ml.GetComponentString('infoscreen.Label4.Caption');
  Label5.Caption:=ml.GetComponentString('infoscreen.Label5.Caption');
  Label6.Caption:=ml.GetComponentString('infoscreen.Label6.Caption');
  ml.GetComponentImage('infoscreen.smartware',smartware.Picture.Graphic);
end;

end.