Dateiname auf Gültigkeit prüfen

[Matze]

himitsu weist auf die Funktion CheckNameLegalDOS8Dot3 hin, die es seit dem Service Pack 1 von Windows XP gibt:

Delphi-Quellcode:

Function CheckNameLegalDOS8Dot3(Name, OemName: PChar; OemNameSize: LongWord; 
  NameContainsSpaces, NameLegal: PLongBool): LongBool; StdCall;
  External 'Kernel32.dll' Name 'CheckNameLegalDOS8Dot3';

Zitat von PSDK:

Requirements
Client: Requires Windows XP SP1.
Server: Requires Windows Server 2003.

Beispiele:

Delphi-Quellcode:

If CheckNameLegalDOS8Dot3(PChar(Name), nil, 0, nil, nil) then 
  // file name is valide

Var OEMName: Array[1..12] of Char;
  NameContainsSpaces, NameLegal: LongBool;

If CheckNameLegalDOS8Dot3(PChar(Name), PChar(OEMName), Length(OEMName), @NameContainsSpaces, @NameLegal)
  and not NameContainsSpaces and NameLegal then 
  // file name is valide
  // OEMName return the OEM name for this file

[edit=Luckie] Mfg, Luckie[/edit]