Solved

Open Direcctory Dialog - Does one exist?

Posted on 2004-08-29
7
162 Views
Last Modified: 2010-04-05
I cannot believe this does not exist in the current set of components, Delphi 7, as it must be something loads of apps require.

The win 3.1 pallete has a component to open a directory but unfortunately it cannot handle networks unless the drive is mapped.

Can I use the OpenDialog to open directories, I do not wish to select a file then extract the path. If so how do I go about this, if not how do I go about this?

Cheers

Chris
0
Comment
Question by:ChrisBerry
  • 4
  • 2
7 Comments
 
LVL 4

Expert Comment

by:ceoworks
ID: 11925670
Hi Chris,

It should be exist in Dialogs tab. If it's not, take a look at the Component -> Configure Palette menu and select "All" from the left side and sort the components by their name. With this way, you can find where is TOpenDialog component is..  If you can't find it from there, install the dclstd70 package.

Cheers,

Oktay Sancak
0
 
LVL 6

Expert Comment

by:bpana
ID: 11925750
use SelectDirectory function from FileCtrl unit.
0
 

Author Comment

by:ChrisBerry
ID: 11925872
Hi

Thanks for the replies.

First. I have already tried the SelectDirectory function but this gives a dialog that again uses mapped directories, I want to have access to NetworkNeighborhood.

Second. TOpenDialog I have but this always requires me to select a file, I just want to select a directory. A TOpenDialog that would allow me to select a directory is just what I want. Am I missing something, as I cannot find this option in TOpenDialog?

Cheers

Chris
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 6

Expert Comment

by:bpana
ID: 11925889
0
 
LVL 6

Expert Comment

by:bpana
ID: 11925954
you can use SelectDirectory function:

uses FileCtrl;

var
  Dir: string;
begin
  if SelectDirectory(Choose the Source Dir! ', '\\frapsnt69\Backup', Dir) then
  begin
    Edit_Source.Text := Dir;
  end;
end;
0
 
LVL 6

Accepted Solution

by:
bpana earned 50 total points
ID: 11926003
there are 2 overloaded SelectDirectory functions. Check my last comment.
0
 

Author Comment

by:ChrisBerry
ID: 11926227
Great, got it!

I tried the wrong overload before.

Thanks

Chris
0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
FMX enumerated colours 2 101
Find and Replace Stream with 0s 8 63
Delphi: Connect to running MS Outlook 4 91
Delphi and Access based Enumeration 9 64
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question