指定 TShellTreeView 的初始目录

[idonot]

我想用向另一个应用程序发送消息控制其中的ShellTreeView的初始目录,不知如何实现,望大虾们指教,最好能附上代码,谢谢!

[pengxuan]

接收消息的程序代码：
unit Unit1;

interface

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

const
WM_MESSAGETEST = WM_USER + 100;

type
TForm1 = class(TForm)
ShellTreeView1: TShellTreeView;
Button1: TButton;
private

public
procedure WM_MessageTest(var AMessage : TMessage); message WM_MESSAGETEST;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WM_MessageTest(var AMessage: TMessage);
begin
ShellTreeView1.Path:='c:\winnt';
end;

end.
把窗口Caption改为 接收消息
发送消息的程序代码：
unit Unit1;

interface

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

const
WM_MESSAGETEST = WM_USER + 100;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
form_hw:HWND;
begin
form_hw:=FindWindow(nil,'接收消息');
if boolean(form_hw) then
SendMessage(form_hw,WM_MESSAGETEST,0,0);
end;

end.

[sxf_zero]

改它的Root属性啊

[sxf_zero]

ShellTreeView1.Root:='d:\';

[Larry1030]

gz