ShellExecute APIでエクスプローラーを開く ～Delphiソースコード集

ShellExecute APIでエクスプローラーを開く ～Delphiソースコード集

メモ帳を開くにはShellExecute APIを使って
ShellExecute(handle, 'open', 'notepad.exe', nil, nil, SW_SHOW);
で可能ですが、以下のソースコードはエクスプローラーで「c:\Windows」ディレクトリを開きます。

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'explorer.exe', 'c:\Windows', nil, SW_SHOW);
end;

以下のソースコードはエクスプローラーで「c:\Windows」ディレクトリを「win.ini」ファイルが選択された状態で開きます。

uses ShellAPI;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', 'explorer.exe', '/select,c:\Windows\win.ini', nil, SW_SHOW);
end;

以下のソースコードはエクスプローラーで「c:\Windows」ディレクトリを「system32」ディレクトリが選択された状態で開きます。

uses ShellAPI;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', 'explorer.exe', '/select,c:\Windows\system32', nil, SW_SHOW);
end;