Jak odczytać nazwę systemu ?
TRegistry *Registry = new TRegistry;
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->OpenKey("\Software\Microsoft\Windows\CurrentVersion", false);
Label1->Caption = AnsiString(Registry->ReadString("ProductName"));
delete Registry;
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->OpenKey("\Software\Microsoft\Windows\CurrentVersion", false);
Label1->Caption = AnsiString(Registry->ReadString("ProductName"));
delete Registry;
Materiał dodany przez użytkownika: alphan
