t_id
886
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ %target=win32 } uses DOS; var error : boolean; procedure Expand(FileMask: string); var FileMaskOut : string; begin WriteLn; WriteLn('Expanding "',FileMask,'"'); FileMaskOut := FExpand(FileMask); WriteLn('To become "',FileMaskOut,'"'); if FileMask<>FileMaskOut then error:=true; end; begin Expand('C:Windows1System'); Expand('\.CWindows1System'); Expand('C:Windows1System'); if error then begin Writeln('ERROR!'); Halt(1); end; end.