XProfan

SetErrorLevel 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              Programmende