[Misterhomer]

Сообщение от Страдалецъ

Мда, тернист путь к истине. Не зря говорят, что правильно заданный вопрос это 90% ответа.

Код:

ShellExecute(handle,nil,PChar(OpenDialog1.FileName),nil,nil,SW_SHOWNORMAL);

ет не то)
я уже нашел ответ)

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
  TitleName : string;
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := Form1.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Please specify a directory';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
   Edit1.Text:=TempPath;
    GlobalFreePtr(lpItemID);

  end;
end;


procedure TForm1.Button2Click(Sender: TObject);


begin
ShellExecute(handle,nil,PChar(Edit1.Text),nil,nil,SW_SHOWNORMAL);
end;

end.