unit1.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Memo1: TMemo;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses xRegistry;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetAssociatedExecutable(Edit4.Text, '', Edit5.Text, Edit6.Text, Edit7.Text);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Desc, MIMEType: string;
begin
  Edit3.Text := GetAssociatedExecutable(ListBox1.Items[ListBox1.ItemIndex], Desc, MIMEType);
  Edit1.Text := Desc;
  Edit2.Text := MIMEType;

  if Image1.Picture.Icon.Handle <> 0 then begin
    DeleteObject(Image1.Picture.Icon.Handle);
    Image1.Picture.Icon.ReleaseHandle;
  end;

  Image1.Picture.Icon.Handle := ExtractIcon(hInstance, PChar(Edit3.Text), 0);
end;

end.