diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:21:06 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:21:06 +0000 |
commit | b73bb7080b12266fba7ebfaf4282ca12b9c89577 (patch) | |
tree | 28afec83329dc5456b943167e208404d1c6bd17b /unicode/src/base/UPlatformWindows.pas | |
parent | 230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3 (diff) | |
download | usdx-b73bb7080b12266fba7ebfaf4282ca12b9c89577.tar.gz usdx-b73bb7080b12266fba7ebfaf4282ca12b9c89577.tar.xz usdx-b73bb7080b12266fba7ebfaf4282ca12b9c89577.zip |
further string -> UTF8String or IPath conversions
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1887 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/UPlatformWindows.pas')
-rw-r--r-- | unicode/src/base/UPlatformWindows.pas | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/unicode/src/base/UPlatformWindows.pas b/unicode/src/base/UPlatformWindows.pas index 2d0bd212..a0372dad 100644 --- a/unicode/src/base/UPlatformWindows.pas +++ b/unicode/src/base/UPlatformWindows.pas @@ -61,44 +61,6 @@ uses Windows, UConfig; -(* -function FindMatchingFileW(var F: TSearchRecW): Integer; forward; -function DirectoryExistsW(const Directory: widestring): Boolean; forward; - -function FindMatchingFileW(var F: TSearchRecW): Integer; -var - LocalFileTime: TFileTime; -begin - with F do - begin - while FindData.dwFileAttributes and ExcludeAttr <> 0 do -{$IFDEF Delphi} - if not FindNextFileW(FindHandle, FindData) then -{$ELSE} - if not FindNextFileW(FindHandle, @FindData) then -{$ENDIF} - begin - Result := GetLastError; - Exit; - end; - FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime); - FileTimeToDosDateTime(LocalFileTime, LongRec(Time).Hi, LongRec(Time).Lo); - Size := FindData.nFileSizeLow; - Attr := FindData.dwFileAttributes; - Name := FindData.cFileName; - end; - Result := 0; -end; - -function DirectoryExistsW(const Directory: widestring): Boolean; -var - Code: Integer; -begin - Code := GetFileAttributesW(PWideChar(Directory)); - Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0); -end; -*) - //------------------------------ //Start more than One Time Prevention //------------------------------ |