/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste