u_dir.pas

利用手机短信信息实现充值的例子

unit U_dir;

interface

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

type
  Tf_dir = class(TForm)
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    log_path_fdir:string;
  public
    { Public declarations }
  end;

var
  f_dir: Tf_dir;

implementation
      uses define;
{$R *.dfm}

procedure Tf_dir.DirectoryListBox1Change(Sender: TObject);
begin
log_path_fdir:=DirectoryListBox1.Directory;
//showmessage(log_path_fdir);
end;

procedure Tf_dir.Button1Click(Sender: TObject);
begin
if trim(log_path_fdir)<>'' then
begin

 if Messagebox(Handle,pchar('新的日记路径为'+#13#10#13+log_path_fdir+#13#10#13+'确定吗？'),'提示',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES then
     begin
     log_path:=log_path_fdir;
      if rightstr(log_path,1)<>'\'  then
       log_path:=log_path_fdir+'\';
       save_inifile('config.ini','com0','set1',log_path);
         if  not DirectoryExists(log_path+'log-'+formatdatetime('mmdd',now)) then
          BEGIN
          CreateDir(log_path+'log-'+formatdatetime('mmdd',now));

          END;
       log_path:=log_path+'log-'+formatdatetime('mmdd',now)+'\';
      f_dir.Close;
    end;
end;
end;

procedure Tf_dir.Button2Click(Sender: TObject);
begin
f_dir.Close;
end;

end.