|
| Folder valg Fra : Ulrik Vadstrup |
Dato : 06-02-02 20:39 |
|
Jeg har et program, hvor brugeren skal kunne vælge nogle foldere i
indstillinger - jeg har brugt TOpendialog, men det kræver at der vælges en
fil, for derefter at Extract'e Path, men hvad nu hvis der ingen fil findes i
folderen.
Er der en anden smart måde at gøre det på, hvis man vil uden om DirListBox.
--
Med venlig hilsen
Ulrik Vadstrup
| |
Steen Jensen (06-02-2002)
| Kommentar Fra : Steen Jensen |
Dato : 06-02-02 21:33 |
|
Hej Ulrik
Ulrik Vadstrup skrev i meddelelsen
<3c618613$0$22349$edfadb0f@dspool01.news.tele.dk>...
>Jeg har et program, hvor brugeren skal kunne vælge nogle foldere i
>indstillinger - jeg har brugt TOpendialog, men det kræver at der vælges en
>fil, for derefter at Extract'e Path, men hvad nu hvis der ingen fil findes
i
>folderen.
>
>Er der en anden smart måde at gøre det på, hvis man vil uden om DirListBox.
>
Du kan prøve denne her.
procedure BrowseFolder;
var
BrowseList: PITEMIDLIST;
BI: TBrowseInfo;
Buf: array[0..Max_Path] Of Char;
Buffer: PChar;
begin
Getmem(Buffer,Max_Path);
with Bi do
begin
hwndOwner := 0;
pidlRoot := nil;
pszDisplayName := Buf;
lpszTitle := 'Ulrik''s Folder valg';
ulFlags := BIF_RETURNONLYFSDIRS;
lpfn := nil;
lParam := 0;
iImage := 0;
end;
BrowseList:=ShBrowseForFolder(BI);
SHGetPathFromIDList(BrowseList,Buffer);
Showmessage(Buffer);
Freemem(Buffer);
end;
Med venlig hilsen
Steen
| |
Ulrik Vadstrup (06-02-2002)
| Kommentar Fra : Ulrik Vadstrup |
Dato : 06-02-02 22:01 |
|
> Du kan prøve denne her.
>
> procedure BrowseFolder;
> var
> BrowseList: PITEMIDLIST;
> BI: TBrowseInfo;
> Buf: array[0..Max_Path] Of Char;
> Buffer: PChar;
> begin
> Getmem(Buffer,Max_Path);
> with Bi do
> begin
> hwndOwner := 0;
> pidlRoot := nil;
> pszDisplayName := Buf;
> lpszTitle := 'Ulrik''s Folder valg';
> ulFlags := BIF_RETURNONLYFSDIRS;
> lpfn := nil;
> lParam := 0;
> iImage := 0;
> end;
> BrowseList:=ShBrowseForFolder(BI);
> SHGetPathFromIDList(BrowseList,Buffer);
> Showmessage(Buffer);
> Freemem(Buffer);
> end;
>
> Med venlig hilsen
> Steen
>
Skulle den virke i Delphi 5 (Havde glemt at sige det var den) i så flad skal
jeg vel have noget med i USES ?
| |
Ulrik Vadstrup (06-02-2002)
| Kommentar Fra : Ulrik Vadstrup |
Dato : 06-02-02 22:14 |
|
Arrrh
ShellObj
Takker
Ulrik
| |
Uffe Kousgaard (06-02-2002)
| Kommentar Fra : Uffe Kousgaard |
Dato : 06-02-02 22:43 |
|
selectdirectory fra filectrl unit.
"Ulrik Vadstrup" <blackend@blackend.dk> wrote in message
news:3c618613$0$22349$edfadb0f@dspool01.news.tele.dk...
> Jeg har et program, hvor brugeren skal kunne vælge nogle foldere i
> indstillinger - jeg har brugt TOpendialog, men det kræver at der
vælges en
> fil, for derefter at Extract'e Path, men hvad nu hvis der ingen fil
findes i
> folderen.
>
> Er der en anden smart måde at gøre det på, hvis man vil uden om
DirListBox.
>
> --
> Med venlig hilsen
> Ulrik Vadstrup
>
>
| |
Gunnar Martensen (07-02-2002)
| Kommentar Fra : Gunnar Martensen |
Dato : 07-02-02 16:15 |
|
Hvad med Selectdirectory
unit FileCtrl ???
Synes at være et ganske godt alternativ.
Gunnar Martensen
"Ulrik Vadstrup" <blackend@blackend.dk> skrev i en meddelelse
news:3c618613$0$22349$edfadb0f@dspool01.news.tele.dk...
> Jeg har et program, hvor brugeren skal kunne vælge nogle foldere i
> indstillinger - jeg har brugt TOpendialog, men det kræver at der vælges en
> fil, for derefter at Extract'e Path, men hvad nu hvis der ingen fil findes
i
> folderen.
>
> Er der en anden smart måde at gøre det på, hvis man vil uden om
DirListBox.
>
> --
> Med venlig hilsen
> Ulrik Vadstrup
>
>
| |
|
|