[lxa85]

ufooo, я думаю самое простое, это написать, да проверить взаимозаменяемость.
Я не силен в WinApi, но в слове 'explore' нет ошибки?

Код:

ShellExecute(Handle, 'explore', 'C:\WINDOWS\System32', nil, nil, SW_RESTORE);

[ufooo]

но в слове 'explore' нет ошибки? »

Вообще-то вместо (Open) лучше ставить (Explore).

[K.A.V.]

Я пишу не на delphi, поэтому сделаете по аналогии, думаю смысл поймёте, сначала получите значение SystemRoot через GetEnvironmentVariable, затем склеите полученное значение с остальным путём и передадите в ShellExecute

Код:

	char path[MAX_PATH], buf[MAX_PATH];
	
	GetEnvironmentVariable("SystemRoot", buf, MAX_PATH);
	sprintf_s(path, "%s\\System32\\Drivers\\etc", buf);
	ShellExecute(NULL, "open", path, NULL, NULL, SW_SHOWNORMAL);

Вообще-то вместо (Open) лучше ставить (Explore) »

Разница в этих параметрах в том, что не то чтобы "что-то лучше", а в том, что при указании open - откроется папка без списка дерева папок, а при указании explore - со списком дерева

[Iska]

но в слове 'explore' нет ошибки? »

«open», «explore», «print» — это канонические глаголы («Canonical Verbs»).

[opel431]

Если не используете JCL библиотеку, то можно на ее примере, так

Код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ ---------------------------------------------------------------------------------------------
  Функция: IsDirectory
  Входные параметры: const FileName: string
  Результат: Boolean - является ли указанный файл каталогом
  ------------------------------------------------------------------------------------------- }
function IsDirectory(const FileName: string): Boolean;
var
  R: DWORD;
begin
  R := GetFileAttributes(PChar(FileName));
  Result := (R <> DWORD(-1)) and ((R and FILE_ATTRIBUTE_DIRECTORY) <> 0);
end;

{ ---------------------------------------------------------------------------------------------
  Функция: OpenFolder  требует ShlObj, ShellAPI
  Входные параметры: const Path: string; Parent: THandle; Explore: Boolean
  Результат: Boolean - открыть проводник с указанной папкой в качестве корневой
  ------------------------------------------------------------------------------------------- }
function OpenFolder(const Path: string; Parent: THandle;
  Explore: Boolean): Boolean;
var
  Sei: TShellExecuteInfo;
begin
  Result := False;
  if IsDirectory(Path) then
  begin
    FillChar(Sei, SizeOf(Sei), #0);
    with Sei do
    begin
      cbSize := SizeOf(Sei);
      Wnd := Parent;
      if Explore then
        lpVerb := 'explore'
      else
        lpVerb := 'open';
      lpFile := PChar(Path);
      nShow := SW_SHOWNORMAL;
    end;
    // директива контролирует типы значений указателя @, а также совместимость типов указателя
    {$TYPEDADDRESS ON}
    Result := ShellExecuteEx(@Sei);
    {$IFNDEF TYPEDADDRESS_ON}
    {$TYPEDADDRESS OFF}
    {$ENDIF ~TYPEDADDRESS_ON}
  end;
end;

{Использование}
procedure TForm1.btn1Click(Sender: TObject);
begin
 OpenFolder('c:\Windows', 0, True);

// или с обработкой
{ 
if OpenFolder('c:\Windows', 0, True) then
     // обработка условия
}  
 end;

end.

[Iska]

opel431, тэг [code] забыли.

[opel431]

opel431, тэг [code] забыли. »

С раскрывающимся текстом компактней но, ... исправил.

[Iska]

С раскрывающимся текстом компактней »

Верно. Значит, потом обрамить тэг «code» тэгом «spoiler». Я тоже так часто делаю.

[ufooo]

...