Solved

Open Direcctory Dialog - Does one exist?

Posted on 2004-08-29
7
160 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
code issue 8 100
error 1.1 400 Bad request idhttp delphi 18 55
find a node in VST 2 64
Firemonkey android show image from resource ? 1 33
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
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…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, just open a new email message. In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

863 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now