Installe prog

i delphi er der en Select Directory dialog på samme måde som der er en open/save file dialog. Den er blot ikke en synlig ikon du kan droppe på din form, men en rutine du kan kalde:

if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
begin
  edit1.text := dir;
end;

Du skal huske at have "filectrl" i formens uses clause.

Så er du fri for at kombinere 2 comboboxe.

Jeg prøver lige !

ps har du ikke lavet Liquid sammen med commy ???

Næææ sejersen, den kom du sq for let om ved. Objektivt set så indeholder SelectDirectory() den funktionalitet der bliver spurgt efter, men der er sq da ikke noget mere iriterende end at den stiller sig nede i højere hjørne. Jeg anbefaler istedet man laver sn egne browsefor dialogs ....

uses
  shlobj;

function BrowseForComputer(const winhandle : THANDLE; const title : string = ''): string; //Show a dialog box and return a string with the selected computer
var
  BrowseInfo: TBrowseInfo;
  IDRoot: PItemIDList;
  Path: array[0..MAX_PATH] of Char;
begin
  // Get the Item ID for Network Neighborhood
  SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot);
  ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo));
  ZeroMemory(@path, MAX_PATH);
  BrowseInfo.hwndOwner := winhandle;
  BrowseInfo.pidlRoot := IDRoot;
  BrowseInfo.lpszTitle := PChar(title);
  BrowseInfo.pszDisplayName := @path;
  // Include this flag to show computer only
  BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;// or BIF_RETURNONLYFSDIRS  ;
  // Show the browse dialog, get the Item ID for the selected item and convert it to a path
  SHBrowseForFolder(BrowseInfo);
  result := path;
end;

function BrowseForFolder(hndl: HWND; msg: string=''): string; {hndl iscalling forms handle}
var
  FolderName: string;
  GDir:  string;
  PList:  PItemIDList;
  bi:  TBrowseInfo;
begin
  FillChar(bi, SizeOf(TBrowseInfo), 0);
  FolderName:= StringOfChar(' ', MAX_PATH);
  GDir:= StringOfChar(' ', MAX_PATH);

  with bi do
  begin
    hwndOwner:=  hndl;
    pidlRoot:=  nil;
    pszDisplayName:= PChar(FolderName);
    lpszTitle := PChar(msg);
    lpfn:= nil;
    ulFlags:= BIF_DONTGOBELOWDOMAIN or BIF_RETURNONLYFSDIRS or BIF_RETURNFSANCESTORS;
  end;

  PList:= SHBrowseForFolder(bi);    {<-- show the dialog}

  if Plist<>nil then
  begin
    SHGetPathFromIDList(Plist, PChar(GDir));
    setlength(GDir, pos(#0, gdir)-1);
    result:= GDir;
  end
  else
    result:= '';
end;

også lige et par knapper til at kalde dem ...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := BrowseForFolder(Handle);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Caption := BrowseForComputer(Handle);
end;


Jens B

Øøøj selvfølgelig dobbelt ' i funktions headderen

hmm hvaa ???

' '  ' '  hvaa mener du med det ???

borrisholt -> Jeg kan ikke få dit til at virke ...

Er det noget som er på din HP for så kan jeg jo lige prøve at dl'e det !

sjensen -> jeg kan ikke finde en Select Directory !!!
Kun en OpenDialog og OpenPictureDialog osv...

Er det fordi jeg bruger Delphi 3 ????

hand, Nej jeg har ikke lavet Liquid sammen med commy. Hvad er Liquid og hvem/hvad er commy ?

Borrisholt, Du har da ret i at det er sjovere at lave sine egne, men når der nu er en i delphi, og behovet blot er at finde, og evt. skabe et dir, så er den jo fin nok.

Men.. jeg kan da godt se at noget skal man jo få tiden til at gå med når natten varer 6 måneder ;-)

Nej hand, den er også i D3, men du kan ikke finde den på paletten. Tilføj "filectrl" til din uses clause på din form, og lav et par linier sådan som jeg har vist, så er den hjemme !

procedure TForm1.button1click(sender: tobject);
var dir : string;
begin
  dir := 'c:\'; // eller hvor du nu vil starte
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
  begin
    edit1.text := dir;
  end;
end;

Så er den der

sjensen ->
Jeg to fejl det var ikke dig som har lavet Liquid men en som hedder Skringer og en der hedder commy.
Liquid er en slaks ICQ.

http://www.nettrip.dk/liquid/
dl det her hvis du vil se det
http://www.nettrip.dk/liquid/files/_liquid13.zip

PS den install som er til det er den måde jeg vil lave min Select Dir... Form..

Problemet er ikke Delphi3, end sige mig men Eksperten hvis jeg skriver 2x' så bliver den ene slettet inden den bliver offenlig gjort men ja du kan finde det på http://borrisholt.com under win32AIp der skal du downloade browsefor ...

Og Sejersen her er ikke mørkt i 6 måneder kun 4 1/2. (November til primo Februar).

sjensen -> det er ikke sådan jeg vil lave det !

sjensen, borrisholt, sjensen. Ikke Sejersen !

4 1/2 måned. Er det så virkeligt mørkt hele døgnet, eller ser i solen en time eller 2 i løbet af dagen ? Og hvis ikke hele døgnet er mørkt, hvor længe har I så dagslys ?

Jeg var engang i Nuuk, og mens vi ventede på en flyver i Søndre Strømfjord (2-3 timer) bemærkede jeg at solen lige nøjagtigt lå hen over bjergryggen, stort set i samme højde hele tiden. Det var midt i Februar mellem kl. 11.00 og 14.00. Men da var det da lyst nok, selvom det selvfølgeligt ikke var helt så lyst som hernede.

Hilsen herfra i øvrigt !

hand, det er fint nok at du fik det til at virke, og at du så ikke vil bruge det er også fint nok. Jeg ville bare fortælle dig at muligheden findes !

jaa oki sjensen

borrisholt -> der komme fejl når jeg vil compile.

i linie 52
function BrowseForFolder(hndl: HWND; msg: string=''): string; {hndl iscalling forms handle}

Fejl =
';' OR ')' expected but '=' found.

hvorfor

Sejersen > Der er HELT mørkt fra den 30/10 -2000 til og med den 10/2 2001. Den 11/2 ser vi solen i 11 minutter og der fra øger dagslyset med 20 minutter om dagen, til det fra sidst i maj er lyst døgnet rundt ....

Årets først solopgang er så står en begivenhed at folk samles på et bjerg uden for basen for at beundre solen de 11 minutter den er der. Det vel og mærke selv om tempraturen typisk vil være omkring -40 til -45 grader plus vindens afkølings faktor !!!!

Se iøvrigt følgende link : http://www.hia.nrc.ca/cgi-bin/HIA/sunmoon.pl.
Thule ligger på 68 grader 32 minutter vest, og 76 grader 45 minutter nord. Og vi er 4 timer bagud for tids zonen ....

Hand >
  Prøv de steder hvor der kommer fejl at sætte et ekstra ' altså i fx linje 52
så skriv:

function BrowseForFolder(hndl: HWND; msg: string=' '): string; {hndl iscalling forms handle}

UDEN mellemru. Problemer er bare at hvis jeg skriver 2 ' så bliver det ene fjernet af eksperten ... Ellers så kan du finde det på http://borrisholt.com under win32AIp der skal du downloade browsefor ...

jens B

Sejersen > Ikke "Søndre Strømfjord" der er det danske navn.. kan du sige  "Kangerlussuaq". :o) Nå lige meget .... Jeg ville bare lige drille lidt ...

Jens B

borrisholt  ->

Der vil komme fejl selv om jeg har ''''

function BrowseForFolder(hndl: HWND; msg: string=''''): string; {hndl iscalling forms handle}

Men når jeg sletter ='''' så dur det !

Aaah du bruger Delphi3 den under støtter ikke Default parametere .... Det må du sq undskylde den havde jeg ikke lige set ....

Jens B

det sq i orden ;)

Men det er nu ikke sådan jeg vil ha det til...

Jeg vil få dem her til at gå sammen hvis du forstår !

DriveComboBox og DirectoryListBox

og så selv med en OK og Cancel button

Hey hand

Jeg tror jeg har hvaa du kigger efter ...

Får jeg din mail så kan jeg lige sende den source til d3 ;)

/thomas

upz det skulle jo lige være et svar ;-)

Oki thomas-sp2k du kan prøve at sende det til denne adresse

tws@jubiipost.dk

Aaahh sådan en komponent dims der sidder på formen ... Sådan har jeg daogså i en noget pænere version end den af Borlands .. Jeg sender den lige ....

Jens

Det er nu send til din adresse..

håber du kan bruge det ;)

borrisholt -> Kan du ikke prøve at sende din igen for jeg kunne ikke dl'e den fra jubii !

måske i ZIP

thomas-sp2k ????????
hvaa !!!!

når nu forstår jeg ...

Kunne du ikke dl'e det fra det link jeg sende på ICQ ???

jaa det er det jeg mener hand

men hvaa synes du om min ???

borrisholt -> er det et komponent dit ?

thomas-sp2k dit er lige det jeg skal bruge men jeg vil lige prøve at se borrisholt's om jeg også kan bruge det ellers kan jeg jo bare splitte ;)

yeps

borrisholt -> når jeg vil installe dit kommer der en fejl men at file FileListView.dcu blev ikke fundet !

Så får du da bare den også

oki men jeg fik den lige fra din hp og nu er det en ande´n komponent som mangler imglist.dcu

Den er en del af Borlands VCL. Kig på din HD .. Jeg har også sendt den til dig

borrisholt jeg har fået dit til at virke...

Men jeg kan også godt bruge dit så jeg splitter pointne

;) tak