如何让程序运行后自动在当前窗体打开所在文件夹？

Question

运行程序时 用*当前*窗口打开程序所在目录，并不是弹出窗口来打开程序所在的目录
例如：我的程序的快捷方式在D:\目录下，而程序则在D:\xxx\xxx\目录下，在D:\运行快捷方式的时候，则用当前已经打开的Explorer.exe窗口（D:\）打开程序所在的目录（D:\xxx\xxx\）。 应该怎么做？

Answer 1

uses
  ShellAPI;  ShellExecute(self.Handle, 'open', 'explorer', PChar(ExtractFilePath(Paramstr(0))), nil, SW_SHOW);

Answer 2

etomahawk 的方法只能在新窗口中打开文件夹

Answer 3

edt1.Text:=ExtractFilePath(Application.ExeName); 
edt2.Text:=Application.ExeName;