給你個函數; 參考參考阿
function isvalid( const s: string):boolean;
const invalidchar : array[0..8] of char=('/','/','.','*'....等等)
var
i:integer;
begin
result := length(s)<=max_path;
if not result then exit;
for i:=low(invalidchar) to high(invalidchar) do
begin
result := pos(invalidchar,s)=0
if not result then break;
end;
end;