Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Сохранение пути и вызов диалога

Страницы: 1
Сохранение пути и вызов диалога
#1
19.01.2010 13:34:13
Здравствуйте. Помогите с проблемой. Есть две кнопки, одна должна открывать диалога для выбора папки, а вторая открывать эту папку.
 
 
#2
19.01.2010 13:41:29
Немного не понял. Зачем нужна вторая кнопка, если она делает тоже самое?
Изменено: Sergeiv - 19.01.2010 13:42:04
 
 
#3
19.01.2010 13:54:28
Попробуйте SelectDirectory
 
 
#4
19.01.2010 14:00:50
Первая кнопка для выбора каталога, вторая для его открытия
 
 
#5
19.01.2010 14:07:02
Все равно не понял. Первой кнопкой вам нужно открыть диалог, чтобы выбрать папку. Допустим, выбрали. Вторая кнопка чтобы её открыть. Вы же это уже сделали. Вам вторая кнопка вообще не нужна.
 
 
#6
19.01.2010 14:17:49
По второй кнопке папка должна открываться вашей программе или в эксплорере?
 
 
#7
19.01.2010 14:23:08
В эксплорере
 
 
#8
19.01.2010 14:31:53
Теперь понятно. Вот что вам нужно
Код
ShellExecute(handle,nil,PChar(OpenDialog1.FileName),nil,nil,SW_SHOWNORMAL);
 
 
#9
19.01.2010 14:39:37
Попробуйте так
Код
 
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.
 
 
#10
19.01.2010 14:53:29
А не проще вот так
Код
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  If SelectDirectory('Path:','',S) Then Edit1.Text := S;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(handle,nil,PChar(Edit1.Text),nil,nil,SW_SHOWNORMAL);
end;
 
 
#11
19.01.2010 15:00:08
Да, так проще.
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)