Dialog
есть ли диалог выбора директории только
наподобии opnedialog.....
помогите плиз.
Что б выбрать аутпут директорию.....
Заранее благодарю !
Вот сколько в делфи работаю, и не знаю,
есть ли диалог выбора директории только
наподобии opnedialog.....
помогите плиз.
Что б выбрать аутпут директорию.....
Заранее благодарю !
BrowseDirectory
BrowseDirectory
BrowseDirectory
А это как используется ?
Плиз, мини ехампл
мне нравиться.
ShellTreeView1.Path и получаешь путь к директории.
Попробуй может понравиться.
Я пользуюсь ShellTreeView1 на вкладке Samples (D6)
мне нравиться.
ShellTreeView1.Path и получаешь путь к директории.
Попробуй может понравиться.
Дело в том, что я не хочу ставить д6, т.к. тачка сильно нагруженна....
Сейчас у меня делфи5, вот в нём есть такая фича ?
И почему ты думаешь что Д6 намного больше потребует ресурсов чем Д5?. Я этого не заметил
Я с Д5 давно спрыгнул и не помню. посмотри на вкладке Samples. эта вкладка на панели компонент точно должна быть.
И почему ты думаешь что Д6 намного больше потребует ресурсов чем Д5?. Я этого не заметил
А я заметил. И грузится дольше.
wstr:string;
if BrowseDirectory(wstr,'Select folder ...',0)
then
begin
edit14.Text:=wstr;
end;{if}
А я заметил. И грузится дольше.
wstr:string;
if BrowseDirectory(wstr,'Select folder ...',0)
then
begin
edit14.Text:=wstr;
end;{if}
Говорит что не знает BrowseDirectory:
[Error] Unit1.pas(99): Undeclared identifier: 'BrowseDirectory'
Говорит что не знает BrowseDirectory:
[Error] Unit1.pas(99): Undeclared identifier: 'BrowseDirectory'
uses
...Dialogs, FileUtil; - не помню, что именно из этого.
uses
...Dialogs, FileUtil; - не помню, что именно из этого.
Dialogs стоит , но не помогает !
А вот FileUtil у мя нету ! =(
[Fatal Error] Unit1.pas(7): File not found: 'FileUtil.dcu'
Dialogs стоит , но не помогает !
А вот FileUtil у мя нету ! =(
[Fatal Error] Unit1.pas(7): File not found: 'FileUtil.dcu'
Вообще-то стандартный модуль.
Попробуй задать поиск текста по папке дельфийской, где-то должно быть его объявление.
Вот, на всякий случай, пример из MS SDK HELP - альтернатива, если не найдёшь простой вариант.
The following example uses the SHBrowseForFolder function to prompt the user for a program group. The Programs directory is specified as the root.
// Main_OnBrowse - browses for a program folder.
// hwnd - handle of the application's main window
//
// Uses the global variable g_pMalloc, which is assumed to point
// to the shell's IMalloc interface.
void Main_OnBrowse(HWND hwnd)
{
BROWSEINFO bi;
LPSTR lpBuffer;
LPITEMIDLIST pidlPrograms; // PIDL for Programs folder
LPITEMIDLIST pidlBrowse; // PIDL selected by user
// Allocate a buffer to receive browse information.
if ((lpBuffer = (LPSTR) g_pMalloc->lpVtbl->Alloc(
g_pMalloc, MAX_PATH)) == NULL)
return;
// Get the PIDL for the Programs folder.
if (!SUCCEEDED(SHGetSpecialFolderLocation(
hwnd, CSIDL_PROGRAMS, &pidlPrograms))) {
g_pMalloc->lpVtbl->Free(g_pMalloc, lpBuffer);
return;
}
// Fill in the BROWSEINFO structure.
bi.hwndOwner = hwnd;
bi.pidlRoot = pidlPrograms;
bi.pszDisplayName = lpBuffer;
bi.lpszTitle = "Choose a Program Group";
bi.ulFlags = 0;
bi.lpfn = NULL;
bi.lParam = 0;
// Browse for a folder and return its PIDL.
pidlBrowse = SHBrowseForFolder(&bi);
if (pidlBrowse != NULL) {
// Show the display name, title, and file system path.
MessageBox(hwnd, lpBuffer, "Display name", MB_OK);
if (SHGetPathFromIDList(pidlBrowse, lpBuffer))
SetWindowText(hwnd, lpBuffer);
// Free the PIDL returned by SHBrowseForFolder.
g_pMalloc->lpVtbl->Free(g_pMalloc, pidlBrowse);
}
// Clean up.
g_pMalloc->lpVtbl->Free(g_pMalloc, pidlPrograms);
g_pMalloc->lpVtbl->Free(g_pMalloc, lpBuffer);
}
Как говорится :своя рубашка ближе к телу
А с помощь TTreeView свое не хочешь написать?
Как говорится :своя рубашка ближе к телу
Давным-давно, когда сам не мог найти эту функцию, своё написать ещё не мог, а инета не было, чтоб у людей спросить, взял я обычный TOpenDialog, и просил юзера выбрать в нём файл, находящийся в нужном каталоге, чтоб каталог ентот узнать. :D
Недавно узрел это своё творение, смеялся полчаса...