盒子论坛 v2.1

unit GetDIRFrm;

interface

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

type
  TGetDirForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GetDirForm: TGetDirForm;

implementation

{$R *.dfm}

procedure TGetDirForm.Button1Click(Sender: TObject);
var
  TmpPath: array[0..40] of char;
begin
  GetWindowsDirectory(@TmpPath, 40);
  Edit1.Text := TmpPath;
  GetSystemDirectory(@TmpPath, 40);
  Edit2.Text := TmpPath;
  Edit3.Text := Application.ExeName;
  GetTempPath(40, @TmpPath);
  Edit4.Text := TmpPath;
end;

procedure TGetDirForm.FormCreate(Sender: TObject);
begin
  Edit1.Text := ';
  Edit2.Text := ';
  Edit3.Text := ';
  Edit4.Text := ';
  Memo1.Text := ';
end;

procedure TGetDirForm.Button2Click(Sender: TObject);
begin
  with Memo1.Lines do
  begin
    Clear;
    Add('Windows Directory: ' + Edit1.Text);
    Add('System Directory: ' + Edit2.Text);
    Add(Edit2.Text);
    Add(ExtractFileDrive(Application.ExeName));
    Add(ExtractShortPathName(Application.ExeName));
    Add(Application.ExeName);
    Add(ExtractFileName(Application.ExeName));
    Add(ExtractFileExt(Application.ExeName));
    Add('Copyright By River 2003 hzg@ytpu.com');
  end;
end;

procedure TGetDirForm.Edit4Change(Sender: TObject);
begin
  if Edit4.Text <> ' then
    Button2.Enabled := True;
end;

procedure TGetDirForm.Button3Click(Sender: TObject);
var
  hCurWindow: HWnd;
  WinText: array[0..255] of char;
begin
  hCurWindow := GetWindow(Handle, GW_HWNDFIRST);
  while hCurWindow <> 0 do
  begin
    if GetWindowText(hCurWindow, @WinText, 255) > 0 then
    begin
      Memo1.Lines.Clear;
      Memo1.Lines.Add(StrPas(@WinText));
    end;
    hCurWindow := GetWindow(Handle, GW_HWNDNEXT);
  end;
end;

end.
----------------------------------------------
尽吾志而无悔
www.2ccc.com

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 13:04:51

4楼：

我晕，有那么复杂吗？

当前程序路径：
caption:=extractfilepath(application.exename);
----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

laoli ( )	★☆☆☆☆	-
	普通会员

2004/2/3 14:54:46

5楼：

我晕，有那么复杂吗？

当前程序路径：

caption:=ParamStr(0);
----------------------------------------------
-

作者：

river (HZG)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 15:16:48

6楼：

上面的程序可以得到好多目录
如System32 ， windows ， temp ， Application Path 等等
不过要是只取应用程序的目录，那当然用laoli的了
Label1.Caption := ParamStr(0);
呵呵！
----------------------------------------------
尽吾志而无悔
www.2ccc.com

作者：

chinahth (淡若浮云)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 16:33:04

7楼：

如我当前执行的程序路径为：
D:/HHH/RS/AAA/RSAAA.EXE
也就是说我用caption:=ParamStr(0);得到的为：D:/HHH/RS/AAA/RSAAA.EXE，而我想要的是：D：/HHH/RS，又改怎么做呢？
----------------------------------------------
-

作者：

forumzcb (zcb)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 17:23:34

8楼：

用extractfilepath(application.exename)就可以了
----------------------------------------------
-

信息

登陆以后才能回复