|
@@ -54,14 +54,14 @@ implementation
|
|
|
function ExtractShortPathName(Const FileName : RawByteString) : RawByteString;
|
|
|
var
|
|
|
Regs: registers;
|
|
|
- c: array [0..255] of Char;
|
|
|
+ c: array [0..255] of AnsiChar;
|
|
|
begin
|
|
|
if LFNSupport then
|
|
|
begin
|
|
|
Regs.ax:=$7160;
|
|
|
Regs.cx:=1;
|
|
|
- Regs.ds:=Seg(PChar(FileName)^);
|
|
|
- Regs.si:=Ofs(PChar(FileName)^);
|
|
|
+ Regs.ds:=Seg(PAnsiChar(FileName)^);
|
|
|
+ Regs.si:=Ofs(PAnsiChar(FileName)^);
|
|
|
Regs.es:=Seg(c);
|
|
|
Regs.di:=Ofs(c);
|
|
|
MsDos(Regs);
|
|
@@ -84,7 +84,7 @@ end;
|
|
|
{$i sysutils.inc}
|
|
|
|
|
|
type
|
|
|
- PFarChar=^Char;far;
|
|
|
+ PFarChar=^AnsiChar;far;
|
|
|
PPFarChar=^PFarChar;
|
|
|
var
|
|
|
dos_env_count:smallint;external name '__dos_env_count';
|
|
@@ -130,7 +130,7 @@ begin
|
|
|
begin
|
|
|
Regs.ax := $716c; { Use LFN Open/Create API }
|
|
|
Regs.dx := Action; { Action if file does/doesn't exist }
|
|
|
- Regs.si := Ofs(PChar(FileName)^);
|
|
|
+ Regs.si := Ofs(PAnsiChar(FileName)^);
|
|
|
Regs.bx := $2000 + (Mode and $ff); { File open mode }
|
|
|
end
|
|
|
else
|
|
@@ -139,9 +139,9 @@ begin
|
|
|
Regs.ax := $3c00 { Map to Create/Replace API }
|
|
|
else
|
|
|
Regs.ax := $3d00 + (Mode and $ff); { Map to Open_Existing API }
|
|
|
- Regs.dx := Ofs(PChar(FileName)^);
|
|
|
+ Regs.dx := Ofs(PAnsiChar(FileName)^);
|
|
|
end;
|
|
|
- Regs.Ds := Seg(PChar(FileName)^);
|
|
|
+ Regs.Ds := Seg(PAnsiChar(FileName)^);
|
|
|
Regs.cx := $20; { Attributes }
|
|
|
Regs.Es := 0; { because protected mode }
|
|
|
MsDos(Regs);
|
|
@@ -486,8 +486,8 @@ Function FileGetAttr (Const FileName : RawByteString) : Longint;
|
|
|
var
|
|
|
Regs: registers;
|
|
|
begin
|
|
|
- Regs.dx := Ofs(PChar(FileName)^);
|
|
|
- Regs.Ds := Seg(PChar(FileName)^);
|
|
|
+ Regs.dx := Ofs(PAnsiChar(FileName)^);
|
|
|
+ Regs.Ds := Seg(PAnsiChar(FileName)^);
|
|
|
Regs.Es := 0; { because protected mode }
|
|
|
if LFNSupport then
|
|
|
begin
|
|
@@ -508,8 +508,8 @@ Function FileSetAttr (Const Filename : RawByteString; Attr: longint) : Longint;
|
|
|
var
|
|
|
Regs: registers;
|
|
|
begin
|
|
|
- Regs.dx := Ofs(PChar(FileName)^);
|
|
|
- Regs.Ds := Seg(PChar(FileName)^);
|
|
|
+ Regs.dx := Ofs(PAnsiChar(FileName)^);
|
|
|
+ Regs.Ds := Seg(PAnsiChar(FileName)^);
|
|
|
Regs.Es := 0; { because protected mode }
|
|
|
if LFNSupport then
|
|
|
begin
|
|
@@ -531,8 +531,8 @@ Function DeleteFile (Const FileName : RawByteString) : Boolean;
|
|
|
var
|
|
|
Regs: registers;
|
|
|
begin
|
|
|
- Regs.dx := Ofs(PChar(FileName)^);
|
|
|
- Regs.Ds := Seg(PChar(FileName)^);
|
|
|
+ Regs.dx := Ofs(PAnsiChar(FileName)^);
|
|
|
+ Regs.Ds := Seg(PAnsiChar(FileName)^);
|
|
|
Regs.Es := 0; { because protected mode }
|
|
|
if LFNSupport then
|
|
|
Regs.ax := $7141
|
|
@@ -549,10 +549,10 @@ Function RenameFile (Const OldName, NewName : RawByteString) : Boolean;
|
|
|
var
|
|
|
Regs: registers;
|
|
|
begin
|
|
|
- Regs.dx := Ofs(PChar(OldName)^);
|
|
|
- Regs.Ds := Seg(PChar(OldName)^);
|
|
|
- Regs.di := Ofs(PChar(NewName)^);
|
|
|
- Regs.Es := Seg(PChar(NewName)^);
|
|
|
+ Regs.dx := Ofs(PAnsiChar(OldName)^);
|
|
|
+ Regs.Ds := Seg(PAnsiChar(OldName)^);
|
|
|
+ Regs.di := Ofs(PAnsiChar(NewName)^);
|
|
|
+ Regs.Es := Seg(PAnsiChar(NewName)^);
|
|
|
if LFNSupport then
|
|
|
Regs.ax := $7156
|
|
|
else
|
|
@@ -738,7 +738,7 @@ end;
|
|
|
|
|
|
procedure InitAnsi;
|
|
|
type
|
|
|
- PFarChar = ^char; far;
|
|
|
+ PFarChar = ^AnsiChar; far;
|
|
|
var
|
|
|
CountryInfo: TCountryInfo; i: integer;
|
|
|
begin
|