Large Integer? Welcher Typ in Delphi

[himitsu]

in Delphi gibt es den Record auch ... der heißt übrigens ganz einfach LARGE_INTEGER / _LARGE_INTEGER

Delphi-Quellcode:

type // aus Unit Windows
  PLargeInteger = ^TLargeInteger;
  _LARGE_INTEGER = record
    case Integer of
    0: (
      LowPart: DWORD;
      HighPart: Longint);
    1: (
      QuadPart: LONGLONG);
  end;
  TLargeInteger = Int64;
  LARGE_INTEGER = _LARGE_INTEGER;

  ULARGE_INTEGER = record
    case Integer of
    0: (
      LowPart: DWORD;
      HighPart: DWORD);
    1: (
      QuadPart: LONGLONG);
  end;
  PULargeInteger = ^TULargeInteger;
  TULargeInteger = ULARGE_INTEGER;

[richard_boderich]

@Himitsu
is jetz nich dein Ernst oder?
Hast du dir die demo mal angeschaut? Wenn ich einen Int64 nehme liefert mir die Funktion nur noch Schwachsinn zurück.
Ich bezweifle, das es mit einer so großen Recordstruktur anders sein wird. Aber ich teste das mal. Entweder ich hab
nen kapitale Bug drinn oder die MSDN ist dort falsch dokumentiert.

mfG Richard

[himitsu]

ohh, da gibt's 'ne Demo (war nicht im Themen-Rückblick zu sehn -.-'')

ich schau mal rein

[richard_boderich]

@Himitsu
wenn ich Large_Integer nehme kracht es ->Kernel32.dll exeption
Wenn ich Plargeinteger nehm. funktioniert es, jedoch ist in der Strucktur kein Pointer ausgeschrieben.

Ich habe festgestellt, das wenn ich für den Parameter Time von TKBasicInformation einen Int64 nehm füllt windows anscheinend sie Struktur nicht mehr richtig. Tlasttimewrite sollte eigentlich auch 2 Dword beinhalten statt 2 word. jedoch kracht es dann wieder.
Entweder ich lese die Struktur falsch aus, oder es liegt am Typ des Feldes Time? Die Länge und der String werden ja richtig ausgelesen , das habe ich überprüft.

Richard

[himitsu]

also dann ist es wohl ein Fehler im MSDN?

weil LARGE / LONGLONG = 64 Bit

Plargeinteger = Pointer/Integer also wieder 32 Bit ... wird die API wohl doch nur 32 Bit haben wollen

und dieses _KEY_BASIC_INFORMATION hätte ich so Übersetzt

Delphi-Quellcode:

TKeyBasicInformation = packed record
  Time: TFileTime;
  TitleIndex: LongWord;
  NameLength: LongWord;
  Name: Array[0..0] of WideChar;
end;

stimmt sozusagen mit deinem überein.



mit KEY_INFORMATION_CLASS mußt du erstmal aufpassen ... entweder du sorgst dafür daß dieses Set 4 Byte groß ist (standardmäßig macht Delphi dieses nur 1 Byte klein)

oder du definierst es so:

Delphi-Quellcode:

type
  KEY_INFORMATION_CLASS = ULONG;

const
  KeyBasicInformation          = 0;
  KeyCachedInformation         = 1;
  KeyNameInformation           = 2;
  KeyNodeInformation           = 3;
  KeyFullInformation           = 4;
  KeyVirtualizationInformation = 5;

ich mach's gern auch so ... da sieht man den Zusammenhang

Delphi-Quellcode:

type  KEY_INFORMATION_CLASS = ULONG;
const KeyBasicInformation          = KEY_INFORMATION_CLASS(0);
      ...
      KeyVirtualizationInformation = KEY_INFORMATION_CLASS(5);

PS: const KeyBasicInformation: KEY_INFORMATION_CLASS = 0; geht nicht, weil Delphi macht dann eine "konstante" Variable draus -.-''


[add]
hast du nochmal die Parameter deiner APIs geprüft?

VAR, CONST und sowas kennt die WinAPI (C) ja sozusagen nicht

NtQueryKey:
var ResultLength: PULONG würde ich da eher als var ResultLength: ULONG vermuten (kenn jetzt aber die API-Definitionen nicht, aber es wird doch wohl PULONG ResultLength; sein).

[richard_boderich]

@Himitsu

hast du es mal mit deinem Record getestet?

KeyInformationClass ist doch als Aufzählung definiert, oder was meinst du?

Richard

[richard_boderich]

@Himitsu

Habe es jetz mit deinen Änderungen getestet. Es kracht...

Die Konstanten der Klasse Key_Information_Class habe ich als Const definiert wie von dir vorgeschlagen. Leider hat das
überhaupt keinen Einfluss. Sobald ich Time als Tfiletime definiere. -> Exeption

Gruß Richard

[himitsu]

Zitat von richard_boderich:

hast du es mal mit deinem Record getestet?

KeyInformationClass ist doch als Aufzählung definiert, oder was meinst du?

nein hab ich nicht, aber es war bisher bei allen anderen Aufzählungen so, welche ich übersetzt hab.

Heißt Delphi würde bei deinem Code nur das niederwertige Byte setzen und Windows den ganzen integer auswerten, wenn du es einfach nur als SET definierst.

Und wenn dein SET strimmt, dann stimmen auch die Werte der Konstanten ... es wird einfach nur durchgezählt.

so, ich lad mir gleich nochmal deine Demo runter ... entweder hab ich grad was zertestet, oder die Variable Test wird nirgend's zugewiesen, weßhalb da nur schrott drinsteht
[add]nee stimmt, TEST wird nirgends was zugewiesen, also Inhalt ist undefiniert[/add]



kannst du mal die ganzen Definitionen posten?
also das woraus du die Funktionsdefinitionen erstellt hast.

[himitsu]

ein bisl PLONG>varLONG geändert

und wenn du von NtQueryKey in KeyInformation 1024 Byte speichern lassen willst,
dann weise KeyInformation erstmal Speicher zu