blob: adf1c2cf3c265a950cd37db6ad42d82ce8fbc91b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %target=win32,go32v2,win64 }
program Project1;
{$mode objfpc}{$H+}
uses
SysUtils
{ add your units here };
var
p: string;
e: string;
begin
p := 'C:\test';
e := ExpandFileName('c:\test');
writeln('Expanded: ',e);
if (p<>e) then halt(1);
writeln('ok');
end.
|
