ショートカットの「ファイルの場所を開く」の機能を実現するには？

解決

やまだ 2013-06-27 00:58:30 No: 44743

win7でdelphi XE3を使っています。

ショートカットの「ファイルの場所を開く」ボタンの機能を実現したいと思っています。

エクスプローラを開いて、該当フォルダを開くまでは実現できたのですが、ファイルを選択状態に（反転）することが分かりません。

エクスプローラを起動するとき、エクスプローラのハンドルは取得できています。

エクスプローラを起動するのに参考にしたサイトはMr.XRAYさんのサイトです。

どなたか御教授をお願いします。

mona 2013-06-27 01:11:12 No: 44744

uses ShellAPI

procedure TForm1.Button1Click(Sender: TObject);
var
  aFilePath:string;
begin
  aFilePath := 'c:\windows\Notepad.exe';
  ShellExecute(Handle, 'open',
               'Explorer.exe',
               PChar('/select,"' + aFilePath +'"'), nil, SW_SHOW);
end;

でどうでしょうか？

やまだ 2013-06-27 02:05:22 No: 44745

早速のご回答ありがとうございます。

解決できました。

Shellで出来るなんて、半日調べて分からなくて、すぐ回答が来て実現できたのでビックリしています。

ありがとうございました。