Здравствуйте, 2hands, Вы писали:

2>Подскажите, пож, как в BCB6 из приложения открыть окно с содержимым заданной папки?
2>(не создать свое окно в приложении и отрисовать, а просто системное виндовое окно с содержимым папки).

Это?

 if DirectoryExists(DirName) then 
    ShellExecute(Application.Handle,'explore',PChar(DirName),nil,nil,SW_SHOWNORMAL);

Подскажите, пож, как в BCB6 из приложения открыть окно с содержимым заданной папки?
(не создать свое окно в приложении и отрисовать, а просто системное виндовое окно с содержимым папки).

Здравствуйте, DarkMaster, Вы писали:

DM>Здравствуйте, 2hands, Вы писали:

2>>Подскажите, пож, как в BCB6 из приложения открыть окно с содержимым заданной папки?
2>>(не создать свое окно в приложении и отрисовать, а просто системное виндовое окно с содержимым папки).

DM>Это?

DM>

DM> if DirectoryExists(DirName) then 
DM>    ShellExecute(Application.Handle,'explore',PChar(DirName),nil,nil,SW_SHOWNORMAL);
DM>

Спасибо

Здравствуйте, 2hands, Вы писали:

2>Подскажите, пож, как в BCB6 из приложения открыть окно с содержимым заданной папки?
2>(не создать свое окно в приложении и отрисовать, а просто системное виндовое окно с содержимым папки).

function TfrmSearchSource.OpenFolder(const sPath : string) : integer;
var
  SEI : TShellExecuteInfo;
  zFileName  : array[0..255] of Char;
  path : string;
  aPath: AnsiString;
begin
  result := _OK_;
  StrPCopy(zFileName, sPath);
  FillChar(SEI, SizeOf(SEI), 0);
  with SEI do begin
    cbSize := SizeOf(SEI);
    wnd := Application.Handle;
    fMask := SEE_MASK_INVOKEIDLIST + SEE_MASK_FLAG_NO_UI;
    lpFile := zFileName;
    nShow := SW_SHOW;
  end;
  try
    if Integer(ShellExecuteEx(@SEI)) = 0 then begin
      result := _ERROR_;
    end;
  except
  end;
end;

Здравствуйте, softland, Вы писали:

2>>Подскажите, пож, как в BCB6 из приложения открыть окно с содержимым заданной папки?
2>>(не создать свое окно в приложении и отрисовать, а просто системное виндовое окно с содержимым папки).

S>

S>var  zFileName  : array[0..255] of Char;

S>  StrPCopy(zFileName, sPath);  // <-- будет облом, если придет длинный sPath...

S>