unit2.pas

定时关机程序

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, SUIEdit, ExtCtrls, SUIForm,ComCtrls;

type
  TForm2 = class(TForm)
    suiForm1: TsuiForm;
    suiEdit1: TsuiEdit;
    Label1: TLabel;
    suiButton1: TsuiButton;
    Label2: TLabel;
    Label3: TLabel;
    suiEdit2: TsuiEdit;
    suiEdit3: TsuiEdit;
    procedure suiButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  App_path:string;
implementation
uses Unit1;
{$R *.dfm}

procedure TForm2.suiButton1Click(Sender: TObject);
var
  Lvi: TListItem;
begin
  try
    StrToTime(suiEdit1.Text);
  except
    suiEdit1.SetFocus;
    Exit;
  end;  

  if suiEdit2.Text='' then
  begin
     suiEdit2.SetFocus;
     exit;
  end;

  Lvi := Form1.suiListView1.Items.Add;
      Lvi.Caption:=suiEdit1.Text;
      Lvi.SubItems.Add(suiEdit2.Text);
      Lvi.SubItems.Add(suiEdit3.Text);
      Lvi.Selected:=True;
      Lvi.MakeVisible(True);
      Lvi.Focused:=True;

  WritePrivateProfileString('TimeRunP',PChar(suiEdit2.Text + ',' + suiEdit3.Text),PChar(suiEdit1.Text),PChar(App_Path + 'Config.ini'))
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  App_Path := ExtractFilePath(ParamStr(0));
end;

end.