delphi 判断文件名是否合法，判断文件名路径是否合法：
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
 function IsValidFileName(const fileName : string) : boolean;
 const
   InvalidCharacters : set of char = ['\', '/', ':', '*', '?', '"', '<', '>', '|'];
 var
   cnt : integer;
 begin
   result := fileName <> '';
   if result then
   begin
     for cnt := 1 to Length(fileName) do
     begin
       result := NOT (fileName[cnt] in InvalidCharacters) ;
       if NOT result then break;
     end;
   end;
 end; (* IsValidFileName *)
   //合法路径名
function IsValidPatchFileName(const patchfileName : string) : boolean;
  var ext:string;
  extlen:integer;
 begin
 ext:=ExtractFileExt(patchfileName);
 extlen:=length( ext)  ;
  if IsValidFileName(ExtractFileName(patchfileName)) and (extlen>0)  then
   result :=true
    else
  result:=false;
 end;
procedure TForm1.Button1Click(Sender: TObject);
var str,ext:string;
begin
str:='c:\a'  ;
   if IsValidPatchFileName(str) then
   showmessage('true')
   else
   showmessage('false');
end;
end.