怎样用delphi获取打开的windows资源管理器窗口中的地址

Question

比如说用windows资源管理器打开了c盘根目录，之后怎样把'c:\'赋给一个字符串变量
softwb,可以讲得更详细吗？
最好能写一个程序给我，复制所有活动的资源管理器的目录下的所有jpg格式文件至程序所在目录（可以写成DOS控制台程序）
注：程序运行时资源管理器已经打开，最好获取目录后能外链一个bat，程序最好是打开直接执行调用bat然后直接关闭。
说实话，这个程序我准备用来偷东西的。当然，是合法的“偷”。

Answer 1

有个函数 只不过不是用Windows的资源管理器 而是类似于普通程序打开/保存窗口一样的东西
引用单元 FileCtrl
函数原型 function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean;
caption弹出的“资源管理器”的标题
Root指定浏览的根目录
out Directory返回所选目录
例如
var a:string;
begin
SelectDirectoy('请选择一个目录','',a);
end;
那么就会弹出一个标题为“请选择一个目录”的窗口 a就是用户选中的目录

Answer 2

监控explorer进程。获取他的地址栏值并幅值给
s