| |
|
|
Alfred Wagner | Funktioniert sólo bajo Windows XP ! X Profano 8 KompilierenMarcaSeparaciónSetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
---------Fenster-------------------------------------------------------
WINDOWSTYLE 63
WINDOWTITLE "Informationen"
WINDOW 22,20-572,480
CLS GETSYSCOLOR(5)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Declare anzeige1$,anzeige2$,anzeige3$,anzeige4$,anzeige5$
Declare anzeige6$,anzeige7$,anzeige8$,anzeige9$,anzeige10$
********** Einlesen aus Registry ************************
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","ProductName")
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","CSDVersion")
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","BuildLab")
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","ProductId")
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","RegisteredOwner")
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","RegisteredOrganization")
@ReadIni$ ("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","SystemRoot")
@ReadIni$ ("HKEY_2","HARDWAREDESCRIPTIONSystemCentralProcessor ","ProcessorNameString")
@ReadIni$ ("HKEY_2","HARDWAREDEVICEMAPScsiScsi Port 0Scsi Bus 0Target Id 0Logical Unit Id 0","Identifier")
@ReadIni$ ("HKEY_2","SYSTEMControlSet001ControlBiosinfo","SystemBiosDate")
********* Anzeigen ******************************
let anzeige1$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","ProductName")
let anzeige2$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","CSDVersion")
let anzeige3$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","BuildLab")
let anzeige4$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","ProductId")
let anzeige5$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","RegisteredOwner")
let anzeige6$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","RegisteredOrganization")
let anzeige7$=@Readini$("HKEY_2","SOFTWAREMicrosoftWindows NTCurrentVersion","SystemRoot")
let anzeige8$=@Readini$("HKEY_2","HARDWAREDESCRIPTIONSystemCentralProcessor ","ProcessorNameString")
let anzeige9$=@Readini$("HKEY_2","HARDWAREDEVICEMAPScsiScsi Port 0Scsi Bus 0Target Id 0Logical Unit Id 0","Identifier")
let anzeige10$=@Readini$("HKEY_2","SYSTEMControlSet001ControlBiosinfo","SystemBiosDate")
********* Das sieht man im Fenster ******************************
Print "" Leerzeile auf den Bildschirm
Print ""
Print ""
Print ""
Print " "
Print " "
Print " Betriebssystem : ",anzeige1$
Print " "
Print " Service Pack : ",anzeige2$
Print " "
Print " Versions Nummer : ",anzeige3$
Print " "
Print " OEM Nummer : ",anzeige4$
Print " "
Print " Benutzer Name : ",anzeige5$
Print " "
Print " Organisation : ",anzeige6$
Print " "
Print " Windows Verzeichnis : ",anzeige7$
Print " "
Print " Prozessor : ",anzeige8$
Print " "
Print " Festplatte : ",anzeige9$
Print " "
Print " Bios Datum : ",anzeige10$
Declare x&,bereich#,text$,t$,f!,bereich2#,bereich3#,bereich4#----Ram Speicher einlesen
Dim bereich#,1024
Dim bereich2#,256
Dim bereich3#,256
Dim bereich4#,256
Def GlobalMemoryStatus(1) !"KERNEL32","GlobalMemoryStatus"
String bereich2#,0="A:/"
Whileloop 16
If x&
t$="Unbekannt"
text$=text$+Str$(f!)+" (frei) Bytes"
Print text$
Print
EndIf
Byte bereich2#,0=Byte(bereich2#,0)+1
EndWhile
Clear bereich#
Long bereich#,0=32
GlobalMemoryStatus(bereich#)
Print ""
Print " Ram-Speicher : "+Str$(Long(bereich#,8))+" Bytes"
Waitinput Warten auf Maus oder Taste
End class=s4 href='./../../funktionsreferenzen/XProfan/programmende/'>Programmende
Diesen Quellcode Yo para teil de Vorlagen de otro Profanern erstellt. Tal vez ha irgendeiner Verwendung dafür.
Grüße
Alfred |
|
|
| |
|
|
|
| Nett. |
|
|
| |
|
|
|
CB | Hi, Alfred!
Ist bastante nützlich, Su Programa! En me ha lo trotz bastante neuer Hard- y Software alles korrekt ausgelesen, con uno einzigen Excepción: En Festplatte erhalte Yo el Bezeichnung meines DVD-Laufwerks. Sonst passt alles.
Ciao, Christian |
|
|
| |
|
|