mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
29 lines
555 B
ObjectPascal
29 lines
555 B
ObjectPascal
{ %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:\Windows1\System');
|
|
Expand('\\.\C\Windows1\System');
|
|
Expand('C:\Windows1\System');
|
|
if error then
|
|
begin
|
|
Writeln('ERROR!');
|
|
Halt(1);
|
|
end;
|
|
end.
|
|
|