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:

implementation

{$R *.nfm}

procedure form.FormCreate(Sender: TObject);
begin
   // Hier wird der Computername ausgegeben
   lbShowPCName.Caption := GetEnvironmentVariable('ComputerName');

   // Hier wird der Benutzname im Betriebssystem ausgelesen
   //lbShowUserName.Caption := GetEnvironmentVariable('Username');

   // Festplattenbezeichung wo Windows läuft (z.B. 'C:')
   //lbShowUserName.Caption := GetEnvironmentVariable('systemdrive');

   // Hier wird der Pfad für das Benutzerprofil ausgeselen (z.B. 'C:\Users\Administrator')
   //lbShowUserName.Caption := GetEnvironmentVariable('USERPROFILE');

   // Hier wird ausgelesen, wo sich der Programmordner befindet (z.B. 'C:\programme')
   //lbShowUserName.Caption := GetEnvironmentVariable('ProgramFiles');

   // Hier wird ausgelesen, wo sich der Windows Ordner befindet (z.B. 'C:\Windows')
   //lbShowUserName.Caption := GetEnvironmentVariable('WINDIR');

   // Hier wird ausgelesen, wo sich der Order für die Temporären Files befindet (z.B. 'C:\Users\Admin\AppData\Local\Temp')
   //lbShowUserName.Caption := GetEnvironmentVariable('TEMP');

   // Systemroot  (z.B. 'C:\Windows')
   //lbShowUserName.Caption := GetEnvironmentVariable('SystemRoot');

   // Hier wird ausgelesen wieviel Bit dein PC hat (z.B. 'x86' = 32bit)
   //lbShowUserName.Caption := GetEnvironmentVariable('PROCESSOR_ARCHITECTURE');

   // Anzahl von Prozessoren (z.b. '4')
   //lbShowUserName.Caption := GetEnvironmentVariable('NUMBER_OF_PROCESSORS');

   // Keine Ahnung was er hier genau ausliest aber das kommt heraus: C:\Windows\system32\cmd.exe
   //lbShowUserName.Caption := GetEnvironmentVariable('COMSPEC');

   // Hier wird bei mir das gleiche ausgegeben wie der Computername, obs auch das gleiche ist? Keine Ahnung
   //lbShowUserName.Caption := GetEnvironmentVariable('USERDOMAIN');

   // Das muss ich jetzt nicht verstehen, ich code auf einem Vista-Rechner und bei dieser Variabel kommt 'WindowsNT'  raus.
   //lbShowUserName.Caption := GetEnvironmentVariable('OS');

   // Auch diese Ergebnis verstehe ich nicht, hier bekomm ich '0f07'
   //lbShowUserName.Caption := GetEnvironmentVariable('PROCESSOR_REVISION');

end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.FormCreate(Sender: TObject);
var
  pRootPathName:        Array[0..MAX_PATH] of Char;
  pVolumeNameBuffer:      Array[0..MAX_PATH] of Char;
  iVolumeSerialNumber:    Cardinal;

  iMaximumComponentLength:   DWORD;
  iFileSystemFlags:       DWORD;

  cc : Cardinal;

begin

  cc := 0;
  pRootPathName := 'X:\';  // Welche Festplatte soll ausgelesen werden
  GetVolumeInformation( pRootPathName,pVolumeNameBuffer,Sizeof(pVolumeNameBuffer)-1,@iVolumeSerialNumber,iMaximumComponentLength,iFileSystemFlags,nil,0 );
  cc := iVolumeSerialNumber;
  ShowMessage(Format('%.8x', [cc]));   // achstellig, lässt sich auch 12stellig oder höher ausgeben

end;					

1:

sString := GetEnvironmentVariable('systemdrive');