Выбор директории

[Kashp]

Кидаю на форму Edit, OpenDialog и кнопку.
По событию нажатия кнопки пишу:

begin
if Opendialog1.Execute then
Edit1.Text:=Opendialog1.FileName;
end;

Вот теперь запускаю и при нажатии кнопки могу выбирать только файлы. Вот как сделать, чтобы я мог выбрать именно папку, чтобы путь к этой папке отобразился в Edit1?

[_SERGEYX_]

Нужно юзать не OpenDialog, а какой-нибудь компонент для выбора каталога. Если такого нет - можно самому написать

uses ShellAPI, ShlObj;
procedure TForm1.Button2Click(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 := 'Выбор каталога:';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    ShowMessage(TempPath);
    GlobalFreePtr(lpItemID);
  end;
end;

[Stilet]

Не нужно ничего писать. Все уже написано до нас :


uses Qdialog
...
procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
SelectDirectory('Выбери папку','d:\',s);
// s - содержит выбранное.
end;

Ой прощу прощения не Qdialog а FileCtrl.

[Kashp]

Большое спасибо!

[FLEX_NST]

Спасибо огромное! Мне тож сильно помогло! Только вот еще вопросик: Как сделать чтобы было отображение всех дисков?

[Terran]

Сообщение от FLEX_NST

Спасибо огромное! Мне тож сильно помогло! Только вот еще вопросик: Как сделать чтобы было отображение всех дисков?

Можете использовать компонент DriveComboBox или сделать так:

Function DriveType(StrDisk: String): String;
Begin
Case
GetDriveType(PChar(StrDisk)) Of
DRIVE_REMOVABLE: DriveType:='Сменный'+'|';
DRIVE_FIXED: DriveType:='Жёсткий диск'+'|';
DRIVE_REMOTE: DriveType:='Remote'+'|';
DRIVE_CDROM: DriveType:='CD-ROM'+'|';
DRIVE_RAMDISK: DriveType:='Ram Диск'+'|';
Else
DriveType:='Неизвестный'+'|';
End;
End;
//--------------------------------------------------//
Function GetDrives: String;
Var
P: Integer;
This, All, C, F, CDrives: String;
Begin
C:=Chr(13);
F:=Chr(0);
SetLength(CDrives,300);
GetLogicalDriveStrings(300,PChar(CDrives));
P:=Pos(F, CDrives);
While P > 0 Do
Begin
This:=Copy(CDrives, 1, P - 1);
If Length(This) <> 3 Then
Break;
This:=UpperCase(This) + ' - ' + DriveType(This);
CDrives:=Copy(CDrives, P + 1,Length(CDrives));
P:=Pos(F, CDrives);
All:=All+This;
End;
GetDrives:=Copy(All, 1, Length(All) - 1);
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Memo1.Lines.Add(GetDrives);
End;

Или так:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
buf: array [0..499] of char;
DrvStr: array [0..9] of char;
LogDrives: set of 0..25;
begin
integer(LogDrives) := GetLogicalDrives;
for i := 0 to 25 do
if (i in LogDrives) then
GetLogicalDriveStrings(1000, buf);
i := 0;
repeat
FillChar(DrvStr, SizeOf(DrvStr), #0);
j := 0;
repeat
DrvStr[j] := buf[i];
inc(j);
inc(i);
until
(buf[i] = #0) or (j > 9);
inc(i);
ListBox1.Items.Add(DrvStr);
until
((buf[i-1] = #0) and (buf[i] = #0)) or (i > 499);
end;

[naps]

uses
  ..., ShellAPI, ShlObj;

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 := 'Выберите каталог';
   BrowseInfo.lpszTitle := PChar( TitleName );
   BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
   lpItemID := SHBrowseForFolder( BrowseInfo );
   if lpItemId <> nil then
   begin
      SHGetPathFromIDList( lpItemID, TempPath );
      Caption := TempPath;
      GlobalFreePtr( lpItemID );
   end;
end;