Forum: Programmieren allgemein
Delphi
by KodeZwerg,
14. Apr 2018
Gern geschehen und weiterhin Viel Erfolg!
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
14. Apr 2018
function SelDir ( StartPath : String; var SelectedDir : String ) : Boolean;
begin
Result := False;
with TFileOpenDialog.Create(nil) do
try
Title := 'Select Directory';
Options := ;
OkButtonLabel := 'Select';
DefaultFolder := StartPath;
FileName := StartPath;
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
14. Apr 2018
Das freut mich wenn alles nun klappt!
Da leider auch, zumindest bei mir, auch Archive angezeigt werden wäre da eventuell noch ein "ExtractFilePath()" sinnvoll.
Nicht das Dein Programm Versucht eine Datei als Ordner zu benutzen.
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
14. Apr 2018
function SelDir ( StartPath : String; var SelectedDir : String ) : Boolean;
begin
Result := False;
with TFileOpenDialog.Create(nil) do
try
Title := 'Select Directory';
Options := ;
OkButtonLabel := 'Select';
DefaultFolder := StartPath;
FileName := StartPath;
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
14. Apr 2018
Das verstehe ich gerade nicht, im Bild sind doch Netzlaufwerke abgebildet?
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
13. Apr 2018
SelDir() Update
function SelDir ( StartPath : String; var SelectedDir : String ) : Boolean;
var
tmp : TArray<string>;
begin
Result := False;
if Win32MajorVersion >= 6 then
with TFileOpenDialog.Create(nil) do
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
13. Apr 2018
Vielen Dank, teste ich gleich mal aus und "upgrade" den OldSchool Dialog.
Ps: Ich vermute ein "TArray<string>;" weil damit auch Multiple-Sachen selektiert werden können.
edit
Nun weiß ich warum mein voriger Versuch immer fehlschlug, da gibt es ja ein anderes Option-Set :wall:
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
13. Apr 2018
Ja ich hatte auch probiert die andere SelectDirectory() Methode zu verwenden aber bin nicht dahintergekommen wie ich den korrekt Aufrufe, könntest Du so lieb sein ein Beispiel dafür geben?
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
13. Apr 2018
Hallo, ich habe noch mal ein wenig rumprobiert und etwas festgestellt:
Wenn ich SelectDirectory() aufrufe mit einem Start-Verzeichniss als Parameter, dann werden merkwürdigerweise alle Laufwerke ausgeblendet, auch lokale, es wird nur das Laufwerk eingeblendet was im Start-Parameter übergeben wurde.
Könnte es daran liegen das es bei Dir nicht fruchtet?
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
13. Apr 2018
Vielleicht magst Du ja eine Zwei-In-Einem Variante, für WindowsXP dein SelectDirectory und ab Vista das neue Fenster.
Ist Hauptsächlich nur die Optik.
function SelDir ( StartPath : String; var SelectedDir : String ) : Boolean;
begin
Result := False;
if Win32MajorVersion >= 6 then
with TFileOpenDialog.Create(nil) do
try