AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Seriennummer der Systemplatte...
Thema durchsuchen
Ansicht
Themen-Optionen

Seriennummer der Systemplatte...

Ein Thema von Z4ppy · begonnen am 9. Okt 2010 · letzter Beitrag vom 29. Apr 2012
Antwort Antwort
Seite 2 von 3     12 3      
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.052 Beiträge
 
Delphi 12 Athens
 
#11

AW: Seriennummer der Systemplatte...

  Alt 8. Mär 2011, 07:55
Bei Google suchenIOCTL_IDE_PASS_THROUGH = $0004D028 und dort gibt es PassThrough.IDSector.SerialNumber
Bei Google suchenDFP_RECEIVE_DRIVE_DATA = $0007C088 in SendCmdOutParams.IDSector.SerialNumber
Bei Google suchenIOCTL_STORAGE_GET_MEDIA_SERIAL_NUMBER = $002D0C10
und über MSDN-Library durchsuchenGetVolumeInformation kommt man an die Seriennummer einer Partition.


Das $0007C088, in Hators Code wäre also ein DFP_RECEIVE_DRIVE_DATA.
(mit 'ner Konstante läßt sich so Einiges manchmal einfacher lesen)

PS: Ich selber versuche zuerst IOCTL_IDE_PASS_THROUGH und wenn das nicht geht, weiche ich in meinem Programm auf DFP_RECEIVE_DRIVE_DATA aus, aber ich glaub das hab ich damals nur so gemacht, da mir IOCTL_IDE_PASS_THROUGH mehr Infos liefert.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu ( 8. Mär 2011 um 08:01 Uhr)
  Mit Zitat antworten Zitat
Chriscode

Registriert seit: 18. Aug 2009
32 Beiträge
 
#12

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 12:14
function GetIdeHddSn: string;
Also es ist mir etwas unangenehm den Thread wieder auszugraben aber da ich die hier gepostete Funktion nicht zum Laufen bekomme ist es womöglich auch für andere interessant die auf dieses Thema stoßen.

Ich möchte genau wie der TE die Seriennummer der Systemplatte auslesen. Und das ganze zuverlässig und auch für Vista und Windows 7.

Problem: Wenn ich die Prozedur so wie geposted per c&p übernehme erhalte ich als Seriennummer nur Sonderzeichen. System windows xp.

Woran könnte das liegen? Und ist die Prozedur überhaupt geeignet auf jedem System zuverlässig zu arbeiten? Oder sollte man zur "Erkennung" des Systems besser die SID nehmen?

Ich habe etwas Angst das die Seriennummer z.B. nicht bei jeder Festplatte vorhanden ist oder nicht bei jedem System ausgelesen werden kann und es so zu Problemen kommt.

Besten Dank,

Gruß
Chris
Chris
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 12:17
Unicodeproblem?
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.052 Beiträge
 
Delphi 12 Athens
 
#14

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 12:31
Definitiv ein Ja.

Mach aus allen Char/CHAR ein AnsiChar und aus PChar ein PAnsiChar

Ob du das String auch noch in ein AnsiString änderst, ist dir überlassen. (ist vermutlich aber nicht nötig)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 12:32
Zitat:
Ob du das String auch noch in ein AnsiString änderst, ist dir überlassen. (ist vermutlich aber nicht nötig)
Wenn schon, denn schon
Markus Kinzler
  Mit Zitat antworten Zitat
Chriscode

Registriert seit: 18. Aug 2009
32 Beiträge
 
#16

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 12:42
Ouch, dummer Fehler. Bitte um Verzeihung.

Vielen Dank für die blitzschnelle Hilfe. Man sollte bei c&p halt trotzdem sein Hirn einschalten

Gruß
Chris
Chris
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#17

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 19:05
...und immer daran denken:
Unter VISTA und WIN 7 laufen manche Programme nur mit Administratorrechten -> Rechtsklick: Als Administrator ausführen.

Geändert von hathor (27. Apr 2012 um 20:06 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#18

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 21:13
Aber doch nicht, um die Seriennummer auszulesen. Und wenn dem so wäre, hätten die Programme schon unter XP nicht funktioniert, wenn man nur als Benutzer mit eingeschränkten Rechten arbeitet.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.052 Beiträge
 
Delphi 12 Athens
 
#19

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 22:45
hätten die Programme schon unter XP nicht funktioniert, wenn ...
Wenn nicht sogar früher. (WinNT + neues Rechtesystem, bzw. ab NTFS oder ab einer bestimmten NTFS-Version)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#20

AW: Seriennummer der Systemplatte...

  Alt 27. Apr 2012, 22:47
WinNT habe ich nicht erwähnt, weil er da wahrscheinlich noch nicht mal in Planung war.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz