|
24.06.2020, 19:20
#39972891
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Беэр-Шева, Израиль
Сообщения: 426
Рейтинг:
0
/ 0
|
|
|
|
Добрый день. Долгое время пользовался самописной 32-хбитной программой, которая вытаскивает параметры файлов с помощью функции NtQueryInformationFile. Решил переписать программу и в процессе модификации собрать ее как 64-хбитную. Обнаружилось, что в 64-хбитном режиме функция не работает - возвращает код 0x80000002. С 32-хбитным режимом никаких проблем - все прекрасно живет. Перерыл полгугла - нигде не описано каких-то различий между вызовами функции под x86 и x64. Все параметры и их типы теоретически должны быть идентичны. Что я упускаю? Никто не сталкивался с подобной ситуацией?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
OD: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Uses
UITypes;
{$R *.dfm}
Type
IO_STATUS_BLOCK = Packed Record
NTSTATUS : Pointer;
Information : DWord;
End;
PIO_STATUS_BLOCK = ^IO_STATUS_BLOCK;
FILE_BASIC_INFORMATION = Packed Record
CreationTime, LastAccessTime, LastWriteTime, ChangeTime : FileTime;
FileAttributes, Reserve : ULong
End;
PFILE_BASIC_INFORMATION = ^FILE_BASIC_INFORMATION;
Const
FileBasicInformation = 4;
STATUS_SUCCESS = 0;
function NtQueryInformationFile(hFile : THandle; IoStatusBlock : PIO_STATUS_BLOCK; FileInformation : PFILE_BASIC_INFORMATION; Length : ULong; FileInformationClass : ULong) : ULong; StdCall; External 'ntdll' Name 'ZwQueryInformationFile';
function FileTimeToDateTime(FileTime : TFileTime) : TDateTime;
Var
ModifiedTime : TFileTime;
SystemTime : TSystemTime;
begin
Result := 0;
If (FileTime.dwLowDateTime = 0) And (FileTime.dwHighDateTime = 0) Then Exit;
Try
FileTimeToLocalFileTime(FileTime, ModifiedTime);
FileTimeToSystemTime(ModifiedTime, SystemTime);
Result := SystemTimeToDateTime(SystemTime)
Except
Result := Now
End
end;
function GetFileDatesAndAttributes(Const AFileName : String; Var CrTime, LWTime, LATime, ChTime: TDateTime; Var FAttributes : Integer) : Boolean;
Var
FHandle : THandle;
StatusBlock : IO_STATUS_BLOCK;
FileInformation : FILE_BASIC_INFORMATION;
R : ULong;
Begin
Result := False;
FHandle := CreateFile(Pchar(AFileName), GENERIC_READ, FILE_SHARE_READ, Nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
If FHandle = INVALID_HANDLE_VALUE Then Exit;
Try
R := NtQueryInformationFile(FHandle, @StatusBlock, @FileInformation, SizeOf(FileInformation), FileBasicInformation);
{If R = STATUS_SUCCESS Then} With FileInformation Do
Begin
CrTime := FileTimeToDateTime(CreationTime);
LATime := FileTimeToDateTime(LastAccessTime);
LWTime := FileTimeToDateTime(LastWriteTime);
ChTime := FileTimeToDateTime(ChangeTime);
FAttributes := FileAttributes;
Result := True
End
Finally
CloseHandle(FHandle)
End
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
D1, D2, D3, D4 : TDateTime;
I : Integer;
begin
If Not OD.Execute Then Exit;
If GetFileDatesAndAttributes(OD.FileName, D1, D2, D3, D4, I) Then
Begin
Edit1.Text := DateTimeToStr(D1);
Edit2.Text := DateTimeToStr(D2);
Edit3.Text := DateTimeToStr(D3);
Edit4.Text := DateTimeToStr(D4);
End
Else MessageDlg('Error!', mtError, [mbOk], 0)
end;
end.
|
|
|
