www.pudn.com > Desktop-Manager.rar > Unit9.pas, change:2004-07-30,size:1109b


unit Unit9; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons; 
 
type 
  TInputDirDlg = class(TForm) 
    GroupBox1: TGroupBox; 
    Edit1: TEdit; 
    SpeedButton1: TSpeedButton; 
    SpeedButton2: TSpeedButton; 
    procedure SpeedButton2Click(Sender: TObject); 
    procedure SpeedButton1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  InputDirDlg: TInputDirDlg; 
 
implementation 
uses unit8; 
{$R *.dfm} 
 
procedure TInputDirDlg.SpeedButton2Click(Sender: TObject); 
begin 
  close; 
end; 
 
procedure TInputDirDlg.SpeedButton1Click(Sender: TObject); 
begin 
  if not DirectoryExists(SaveManyPicDlg.DirectoryListBox1.Directory+'\'+Edit1.Text) then 
  begin 
    ForceDirectories(SaveManyPicDlg.DirectoryListBox1.Directory+'\'+Edit1.Text); 
    SaveManyPicDlg.DirectoryListBox1.Directory:=SaveManyPicDlg.DirectoryListBox1.Directory+'\'+Edit1.Text; 
    close; 
  end 
  else 
    ShowMessage('此文件夹已经存在,重新输入文件夹的名字!'); 
end; 
 
end.