unit2.pas

del *.obj del *.dcu del *.~* del *.hpp del *.dcp del *.dpl del *.cesettings del *.log upx sy

{*******************************************************}
{                                                       }
{       自启动程序管理模块中的属性或新建窗口            }
{                                                       }
{             Copyright (c) 2005, MICHAEL               }
{    http://xuhaohome.yeah.net OR xuhaohome.2008.cc     }
{     E-Mail:[e-mail]   QQ:10660578 8416321       }
{                                                       }
{*******************************************************}

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StrUtils, ImgList, StdCtrls, Buttons, ExtCtrls,ShellAPI,
  TFlatSpeedButtonUnit, TFlatTitlebarUnit, TFlatButtonUnit, TFlatEditUnit,
  TFlatComboBoxUnit;

type
  TFormAttribute = class(TForm)
    ImageList1: TImageList;
    openfile: TOpenDialog;
    FlatTitlebar1: TFlatTitlebar;
    Panel2: TPanel;
    Bevel3: TBevel;
    FlatSpeedButtonCancel: TFlatSpeedButton;
    FlatSpeedButtonEnter: TFlatSpeedButton;
    GroupBoxProperties: TGroupBox;
    LabelName: TLabel;
    LabelFile: TLabel;
    LabelPath: TLabel;
    LabelTypes: TLabel;
    Image1: TImage;
    FlatEditCmd: TFlatEdit;
    FlatEditName: TFlatEdit;
    FlatEditPath: TFlatEdit;
    FlatButtonOpen: TFlatButton;
    FlatSpeedButtonFind: TFlatSpeedButton;
    LabelICO: TLabel;
    FlatComboBoxType: TFlatComboBox;
    procedure FlatSpeedButtonCancelClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
    procedure FlatSpeedButtonFindClick(Sender: TObject);
    procedure FlatButtonOpenClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatSpeedButtonEnterClick(Sender: TObject);
    procedure FlatComboBoxTypeChange(Sender: TObject);
    procedure FlatEditCmdChange(Sender: TObject);
  private
    { Private declarations }


  public
    { Public declarations }
  end;

var
  FormAttribute: TFormAttribute;


implementation

{$R *.dfm}

uses MainForm,StartUpManger;

procedure TFormAttribute.FlatSpeedButtonCancelClick(Sender: TObject);
begin
Close;
Form1.BootListResize(Sender);
end;

procedure TFormAttribute.FormKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if key=VK_ESCAPE then FlatSpeedButtonCancelClick(Sender)
else
if key=VK_RETURN then FlatSpeedButtonEnterClick(Sender);
end;

procedure TFormAttribute.FlatButtonOpenClick(Sender: TObject);
begin
  openfile.FileName:=ClearFilePath(FlatEditCmd.Text);
  if openfile.Execute then FlatEditCmd.Text:=openfile.FileName;
end;

procedure TFormAttribute.FlatSpeedButtonFindClick(Sender: TObject);
begin
  winexec(pchar(format('explorer /select,%s',[FlatEditCmd.Text])), sw_show);
end;

procedure TFormAttribute.FormShow(Sender: TObject);
begin
FlatEditName.text:=StartUpManger.BootListSelectName;
FlatEditCmd.text:=StartUpManger.BootListSelectCmd;
FlatEditPath.text:=StartUpManger.BootListSelectPath;
FlatComboBoxType.text:=StartUpManger.BootListSelectType;
end;

procedure TFormAttribute.FlatComboBoxTypeChange(Sender: TObject);
begin
  if Trim(TFlatComboBox(Sender).Text)<>'' then
  begin
  FlatEditPath.text:=StartUpManger.GetStartType(Trim(TFlatComboBox(Sender).Text));
  end;
end;

procedure TFormAttribute.FlatSpeedButtonEnterClick(Sender: TObject);
begin
if (Trim(FlatEditName.text)='') and (Trim(FlatComboBoxType.text)='') and (Trim(FlatEditPath.text)='') and (Trim(FlatEditCmd.text)='') then close
else if (Trim(FlatEditName.text)='') or (Trim(FlatComboBoxType.text)='') or (Trim(FlatEditPath.text)='') or (Trim(FlatEditCmd.text)='') then begin showmessage('还有某些参数没有填写清楚，请检查后再试！'); exit; end
else if (FlatEditName.text<>StartUpManger.BootListSelectName) or (FlatEditCmd.text<>StartUpManger.BootListSelectCmd) or (FlatEditPath.text<>StartUpManger.BootListSelectPath) or (FlatComboBoxType.text<>StartUpManger.BootListSelectType) then
  begin
    MainForm.Form1.delbtnClick(Sender);   //调用主窗体中删除记录的过程(右键中菜单中的删除)
    StartUpManger.BootListSelectName:=FlatEditName.text;
    StartUpManger.BootListSelectCmd:=FlatEditCmd.text;
    StartUpManger.BootListSelectPath:=FlatEditPath.text;
    StartUpManger.BootListSelectType:=FlatComboBoxType.text;
    if not AddRegStartup(BootListSelectName,BootListSelectCmd,BootListSelectPath) then showmessage('命令执行出错，请检查各参数和访问权限后再试！');
  end;
FlatSpeedButtonCancelClick(Sender);   //调用取消按钮，即关闭属性窗口和对主窗口中的列表进行刷新
end;

procedure TFormAttribute.FlatEditCmdChange(Sender: TObject);
begin
Image1.Picture.Icon.Handle:=GetfileIcon(PChar(ClearFilePath(FlatEditCmd.text)),False);
end;

end.