Problem beim auslesen der Festplatten Seriennummer

[slemke76]

Hallo zusammen,

ich habe die auf der vorherigen Seite verwendete Unif hddinfo.pas benutzt, da ich vor dem gleichen Problem stehe; funktioniert hat sie ad-hoc allerdings nicht.

Grund ist, dass PChar inzwischen PWideChar entspricht und somit die Adressen der Zeiger für das Lesen aus DeviceDescriptor nicht mehr passen.

Ich habe die Definitionen und PCh und TCharArray entsprechend angepasst und nu läuft die Unit wieder.

lg
Sebastian

[Sir Rufo]

So ist PChar definiert:

Delphi-Quellcode:

type
  PChar = {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF};

Wenn man es richtig macht, kann man so eine Unit auch generell nutzbar erstellen (unabhängig von Ansi/Unicode)

[slemke76]

Hi,

da bin ich bei dir Problem war bei mir, dass ich im ersten Moment nicht wusste / realisiert habe, wo dran das liegt, ich hatte erst einmal den DeviceIoControl Aufruf in Verdacht. Deswegen dachte ich, ich poste das mal, vlt. spart das jemanden irgenwann einmal Arbeit

lg
Sebastian