基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 3 元　

支付宝支付

微信支付

   源码介绍

---

unit Unit1;
//Download by http://www.codefans.net
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls,shellapi;

type
  TForm1 = class(TForm)
    Image1: TImage;
    ComboBox1: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Timer1: TTimer;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShellExecute(handle,'open',pchar(Combobox1.Text),nil,nil,SW_show);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.Left:= 200;
  self.Top :=-30;
  
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  self.Top:=10
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if self.Active=False then
    self.Top:=-30;
end;

end.