English
Source / code snippets

Show reading Systeminformationen

 

Alfred
Wagner
functions only under Windows XP !
X Profan 8
CompileMarkSeparation
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           
class=s4 href='./../../Function-References/XProfan/programmende/'>End of program

Diesen Source have I in part from Vorlagen of others Profanern prepares.
Perhaps has anybody usage for.

Regards

Alfred
 
WinXP-Home ,XProfan10

Alfreds ... Freeware :  [...] 
03/05/05  
 



nice.
 
03/05/05  
 




CB
Hi, Alfred!

is right useful, your Program!
With me is it withal integrally new Hard- and software everything correctly read, with of/ one only exception: with the Festplatte sustain I The Bezeichnung of my DVD-Laufwerks. otherwise fit everything.

Ciao, Christian
 
XProfan 8/9.1, Win XP, AMD 64/3200
03/05/05  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.854 Views

Untitledvor 0 min.
rquindt07/09/20
RudiB.11/06/15
Oschalla 200303/03/13
Manfred Barei01/21/12
More...

Themeninformationen

this Topic has 3 subscriber:

CB (1x)
iF (1x)
Alfred Wagner (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie