传真(Fax)编程

开发平台：

Delphi

About.pas：源码内容

							unit About;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, ShellAPI, Dialogs;
type
  TTComAbout = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Bevel2: TBevel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure LinkLabelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure LinkLabelMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TPhoneBookEntry = record
  Name: String[30];
  ConnectionType: String[10];
  Address: String[50];
  WsPort: String[50];
  WsServer: Boolean;
  DataBits: Byte;
  Parity: Byte;
  StopBits: Byte;
  Emulation: Byte;
  DefProtocol: Byte;
end;
var
  AsciiUploadCRTranslation,
  AsciiUploadLFTranslation,
  AsciiDownloadCRTranslation,
  AsciiDOwnloadLFTranslation : Byte;
  ZModemAutoReceive: Boolean;
  PhoneBookFile: String;
const
  IniName = 'TCom3.ini';
  crHand = 1;
implementation
{$R *.DFM}
{$IFDEF Win32}
  {$R Cursors.R32}
{$ELSE}
  {$R Cursors.R16}
{$ENDIF}
procedure TTComAbout.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crHand] := LoadCursor(HInstance, 'HAND_CURSOR');
  Label5.Cursor := crHand;
  Label6.Cursor := crHand;
end;
procedure TTComAbout.LinkLabelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TLabel).Left := (Sender as TLabel).Left + 1;
end;
procedure TTComAbout.LinkLabelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TLabel).Left := (Sender as TLabel).Left - 1;
end;
procedure TTComAbout.Label5Click(Sender: TObject);
begin
  if ShellExecute(0, 'open', 'http://www.turbopower.com', '', '', SW_SHOWNORMAL) <= 32 then
    ShowMessage('Unable to start web browser. Make sure you have it properly set-up on your system.');
end;
procedure TTComAbout.Label6Click(Sender: TObject);
begin
  if ShellExecute(0, 'open', 'news://news.turbopower.com', '', '', SW_SHOWNORMAL) <= 32 then
    ShowMessage('Unable to start web browser. Make sure you have it properly set-up on your system.');
end;
end.
 

						