LB_DIR

[City Light]

Hallo @ll

Folgender Code funktioniert nicht unter Windows ME nicht...

Delphi-Quellcode:

var
  path: string;
begin
  path:='C:\Eigene Dateien\Eigene Programme\' + '*.*';
  ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@path[1]));

Unter Windows XP geht er aber nur unter ME nicht ich vermute mal das es sich wegen diesen Format 8.5 oder so handelt also...C:\Programme ist gleich C:\Prog~1

wie bekomme ich das nun gebacken das es auch unter MS Windows ME geht

[Christian Seehase]

Moin Tino,

da ich mit Perform schon schlechte Erfahrungen gemacht habe, probier's doch erst einmal ersatzweise direkt mit SendMessage, vielleicht hilft das schon.

[City Light]

Morgen

Damit geht es leider auch nicht...die Verzeichnis namen sind zu lang!
Ich weiß im Moment leider auch nicht mehr weiter.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  path: string;
begin
  path:='C:\Eigene Dateien\Eigene Programme';
  SendMessage(ListBox1.Handle,LB_DIR,DDL_READWRITE,lParam(PChar(path+'\*.*')));
end;

[Christian Seehase]

Moin Tino,

eine Idee noch:
(mangels ME kann ich das leider immer nicht ausprobieren)

probier's mal mit:

Code:

path:=[color=red]'"'+[/color]'C:\Eigene Dateien\Eigene Programme'[color=red]+'"'[/color];

[City Light]

Leider half das auch nicht weiter... :cry:

[Marco Haffner]

Existiert auf dem Windows ME Rechner auch der Ordner C:\Eigene Dateien\Eigene Programme?

Und übrigens, 8.3: 8 Zeichen für den Namen, 3 für die Erweiterung.

[City Light]

Zitat:

Zitat von Marco Haffner

Existiert auf dem Windows ME Rechner auch der Ordner C:\Eigene Dateien\Eigene Programme?

Hallo Marco

Ja er Existiert!

habe Ihn selbst angelegt, dass Problem ist das LB_DIR mit dem Format 8.3 (danke für den tipp)zumindest unter MS Windows ME (soweit ich weiß) nicht um gehen kann.

[Marco Haffner]

Zitat:

Zitat von City Light

Ja er Existiert!

Dann ist gut.

Ich habe grad' mal nachgesehen, LB_DIR arbeitet in der tat unter Windows 95/98/ME nur mit kurzen Dateinamen, naja, mußt Du halt erst den Pfad mit GetShortPathName in einen kurzen Pfad umwandeln.

[City Light]

hmm...haste du vieleicht ein Beispiel wie man das mit

Delphi-Quellcode:

GetShortPathName(path,??? ,???);

umgeht wer dir wirklich dankbar.

[Marco Haffner]

Bitte sehr:

Delphi-Quellcode:

function ShortFileName(const Path: string): PChar;
var
  Tmp: array[0..MAX_PATH + 1] of Char;
begin
  if (GetShortPathName(PChar(Path), Tmp, SizeOf(Tmp) - 1) = 0) then
    Result := PChar(Path)
  else
    Result := Tmp;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: string;
begin
  Path := 'C:\Eigene Dateien\Eigene Programme\*.*';
  SendMessage(ListBox1.Handle, LB_DIR, DDL_READWRITE, lParam(ShortFileName(Path)));
end;