|
@@ -568,7 +568,7 @@ var SR: PSearchRec;
|
|
|
|
|
|
begin
|
|
|
New (FStat);
|
|
|
- Rslt.FindHandle := $FFFFFFFF;
|
|
|
+ Rslt.FindHandle := THandle ($FFFFFFFF);
|
|
|
Count := 1;
|
|
|
Err := DosFindFirst (PChar (Path), Rslt.FindHandle,
|
|
|
Attr and FindResvdMask, FStat, SizeOf (FStat^), Count, ilStandard);
|