diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-20 23:55:05 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-20 23:55:05 +0000 |
commit | 3c3a4aa9118e2b7c707505cc62f7b3eddc250618 (patch) | |
tree | c6448ed2ab1bc536d4f563b377070311ea670d7a /Game/Code/Classes/UPlatformWindows.pas | |
parent | 1495d0dab6dd7dd702d043c305760b8600d4609f (diff) | |
download | usdx-3c3a4aa9118e2b7c707505cc62f7b3eddc250618.tar.gz usdx-3c3a4aa9118e2b7c707505cc62f7b3eddc250618.tar.xz usdx-3c3a4aa9118e2b7c707505cc62f7b3eddc250618.zip |
TPlatform.CopyFile added
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1281 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UPlatformWindows.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Game/Code/Classes/UPlatformWindows.pas b/Game/Code/Classes/UPlatformWindows.pas index 5c7b9655..ee132a7b 100644 --- a/Game/Code/Classes/UPlatformWindows.pas +++ b/Game/Code/Classes/UPlatformWindows.pas @@ -26,6 +26,8 @@ type function GetLogPath: WideString; override; function GetGameSharedPath: WideString; override; function GetGameUserPath: WideString; override; + + function CopyFile(const Source, Target: WideString; FailIfExists: boolean): boolean; override; end; implementation @@ -226,4 +228,9 @@ begin Result := ExtractFilePath(ParamStr(0)); end; +function TPlatformWindows.CopyFile(const Source, Target: WideString; FailIfExists: boolean): boolean; +begin + Result := Windows.CopyFileW(PWideChar(Source), PWideChar(Target), FailIfExists); +end; + end. |