Pedro
Nombre de messages : 1595
Date d'inscription : 19/01/2014
 | | Sujet: Déterminer la quantité de RAM. Mar 3 Mar 2020 - 16:32 | |
| Bonjour. Voici le code en GFA-Basic permettant de déterminer la quantité de RAM installée, et sans affichage d'une fenêtre DOS. Ce code peut facilement être compilé en GFA, puis lancé avec 'execute_wait'. - Code:
-
Global a%, e$, f$, g$, ram, x%, y%
Open "test.bat" for Output As # 1
Print # 1, "@echo off"
Print # 1, "wmic ComputerSystem get TotalPhysicalMemory | clip"
Close # 1
a% = WinExec("test.bat", SW_HIDE)
e$ = Clipboard.GetText(1)
x% = InStr(e$, Chr$(49))
f$ = Trim$(Mid$(e$, x%))
y% = InStr(f$, Chr$(32))
ram = Val(Left$(f$, y% - 1))
g$ = Clipboard.SetText(Trim$(Str$(ram)), 1)
Open "ram.txt" for Output As # 2
Print # 2, Trim$(Str$(ram))
Close # 2
Message "[" + Trim$(Str$(ram)) + "]"
Et voici la sub Panoramic. - Code:
-
sub ram_installee()
' Code en GFA-Basic.
' Le Programme a besoin de gfawin23.ocx
' Global a%, e$, f$, g$, ram, x%, y%
' Open "test.bat" for Output As # 1
' Print # 1, "@echo off"
' Print # 1, "wmic ComputerSystem get TotalPhysicalMemory | clip"
' Close # 1
' a% = WinExec("test.bat", SW_HIDE)
' e$ = Clipboard.GetText(1)
' x% = InStr(e$, Chr$(49))
' f$ = Trim$(Mid$(e$, x%))
' y% = InStr(f$, Chr$(32))
' ram = Val(Left$(f$, y% - 1))
' g$ = Clipboard.SetText(Trim$(Str$(ram)), 1)
' Open "ram.txt" for Output As # 2
' Print # 2, Trim$(Str$(ram))
' Close # 2
' Message "[" + Trim$(Str$(ram)) + "]"
ram=0
while ram=0
execute_wait "ram.exe"
file_open_read 99,"ram.txt"
e$=file_readln$(99)
file_close 99
ram=int((val(e$)/1000000000)*10)/10
end_while
end_sub | |
|
Calendrier