Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизЧтение названий файлов в написанных НЕрусскими и НЕанглийскими Найти похожие ветки
← →
igorium © (2012-05-10 10:42) [0]Удалено модератором
Примечание: спам
← →
Плохиш © (2012-05-10 10:55) [1]
{$WARN SYMBOL_PLATFORM OFF}
unit SysUtilsW;
interface
uses
Windows;
type
TSearchRecW = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: WideString;
ExcludeAttr: Integer;
FindHandle: THandle platform;
FindData: TWin32FindDataW platform;
end;
// From SysUtils
LongRec = packed record
case Integer of
0: (Lo, Hi: Word);
1: (Words: array [0..1] of Word);
2: (Bytes: array [0..3] of Byte);
end;
const
{ File attribute constants }
faReadOnly = $00000001 platform;
faHidden = $00000002 platform;
faSysFile = $00000004 platform;
faVolumeID = $00000008 platform;
faDirectory = $00000010;
faArchive = $00000020 platform;
faSymLink = $00000040 platform;
faAnyFile = $0000003F;
procedure FindCloseW(var F: TSearchRecW);
function FindFirstW(const Path: WideString; Attr: Integer; var F: TSearchRecW): Integer;
function FindNextW(var F: TSearchRecW): Integer;
function WideCharToChar(const WCh: WideChar): String;
function WideStringToTranslit(const WString: WideString): String;
implementation
function FindMatchingFileW(var F: TSearchRecW): Integer;
var
LocalFileTime: TFileTime;
begin
with F do
begin
while FindData.dwFileAttributes and ExcludeAttr <> 0 do
if not FindNextFileW(FindHandle, FindData) then
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;
procedure FindCloseW(var F: TSearchRecW);
begin
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(F.FindHandle);
F.FindHandle := INVALID_HANDLE_VALUE;
end;
end;
function FindFirstW(const Path: WideString; Attr: Integer;
var F: TSearchRecW): Integer;
const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
begin
F.ExcludeAttr := not Attr and faSpecial;
F.FindHandle := FindFirstFileW(PWideChar(Path), F.FindData);
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Result := FindMatchingFileW(F);
if Result <> 0 then FindCloseW(F);
end else
Result := GetLastError;
end;
function FindNextW(var F: TSearchRecW): Integer;
begin
if FindNextFileW(F.FindHandle, F.FindData) then
Result := FindMatchingFileW(F) else
Result := GetLastError;
end;
end.
← →
igorium © (2012-05-11 09:03) [2]Спасибо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.073 c