【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了frm_Chdir.pas相关资料,希望对各位网友有所帮助!
unit frm_Chdir;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TFrmCHdir = class(TForm)
GBxDir: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BtnChange: TButton;
BtnClose: TButton;
XPManifest1: TXPManifest;
procedure FormShow(Sender: TObject);
procedure BtnChangeClick(Sender: TObject);
procedure BtnCloseClick(Sender: TObject);
private
function getcudir:string;
{ Private declarations }
public
{ Public declarations }
end;
var
FrmCHdir: TFrmCHdir;
implementation
{$R *.dfm}
function TFrmCHdir.getcudir:string;
begin
getdir(0,result);
end;
procedure TFrmCHdir.FormShow(Sender: TObject);
begin
label3.Caption:=getcudir;
end;
procedure TFrmCHdir.BtnChangeClick(Sender: TObject);
begin
try
chdir(edit1.Text);
finally
label3.Caption:=getcudir;
end;
end;
procedure TFrmCHdir.BtnCloseClick(Sender: TObject);
begin
Close;
end;
end.