| |
| |
|
Jac
de
Lad | Gibts una API con el se rausfinden lässt, wieviel RAM mein Prog verwendet ()en etwa así, como el Taskmanager el anzeigt)?
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 13.02.2008 ▲ |
|
| |
|
|
 | | Wüsste Yo También me gusta! |
|
| |
| |
| |
|
|
Sebastian
König | Bajo NT-basierten Sistema lässt se tal vez hiermit algo anfangen:
KompilierenMarcaSeparación $H windows.ph
Cls
declare hToken&
~OpenProcessToken(~GetCurrentProcess(),~TOKEN_ADJUST_PRIVILEGES,Addr(hToken&))
if hToken& <> 0
declare priv#
dim priv#,16
if External(ADVAPI32.DLL,LookupPrivilegeValueA,,SeDebugPrivilege,priv#+4) <> 0
long priv#,0 = 1
long priv#,12 = ~SE_PRIVILEGE_ENABLED
External(ADVAPI32.DLL,AdjustTokenPrivileges,hToken&,0,priv#,SizeOf(priv#),0,0)
endif
dispose priv#
~CloseHandle(hToken&)
endif
declare id&
print ID (current =, ~GetCurrentProcessId();):,
input id&
declare hProcess&
let hProcess& = ~OpenProcess(~PROCESS_ALL_ACCESS,0,id&)
ifnot hProcess&
print Prozess konnte nicht geöffnet werden :-(
print Taste zum Beenden!
WaitKey
end
endif
print Handle:,hProcess&
print -------------------
declare pMem#,size&
dim pMem#,44
External(NTDLL.DLL,ZwQueryInformationProcess,hProcess&,3,pMem#,44,Addr(size&))
print PeakVirtualSize:,long(pMem#,0) 1024,KB
print VirtualSize:,long(pMem#,4) 1024,KB
dispose pMem#
~CloseHandle(hProcess&)
color 0,15
print
print
print Taste zum Beenden!
WaitKey
./../funktionsreferenzen/XProfan/end/'>end
Was como se determina, es allerdings el Größe des kompletten virtuellen Speicherbereichs, el una Prozess belegt...
HTH
Sebastian |
|
| |
| |
| |
|
|
Jac
de
Lad | |
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 13.02.2008 ▲ |
|
| |
|
|
Sebastian
König | Hah, aber fast!  Ergänz veces el Edición a Línea
imprimir WorkingSetSize:,long(pMem#,16) 1024,KB
Nach media Tests es el genau el Valor, el auch en el Task-Manger adecuado se...
MfG
Sebastian |
|
| |
| |
| |
|
|
Jac
de
Lad | | Aha, coole Sache, danke. |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 13.02.2008 ▲ |
|
| |
|
|
Jac
de
Lad | | Aber ne allgemeingültige Función no? Yo mi para todos WIndows-Versionen. |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 13.02.2008 ▲ |
|
| |
|
|
Sebastian
König | Jac
Aber ne allgemeingültige Función no? Yo mi para todos WIndows-Versionen.
Sí, es como dijo sólo para NT-basierte Systeme. Für Win9x/ME hay tal vez una otro Möglichkeit... aber wer benutzt el ya todavía? 
Und ni Bemerkung: Wenn lo sólo en el eigenen Prozess va, puede ser se AdjustTokenPrivileges-Teil wohl sparen. Der dürfte en eingeschränkten Benutzerkonten auch torcido ir...
MfG
Sebastian |
|
| |
| |
| |
|
|
Thomas
Zielinski | Sebastian König
Sí, es como dijo sólo para NT-basierte Systeme. Für Win9x/ME hay tal vez una otro Möglichkeit... aber wer benutzt el ya todavía?
Der MMJ nutzt el alles todavía cada Freitag en Esta semana  |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 13.02.2008 ▲ |
|
| |
|
|
| @Thomas: Das wäre entonces also 1:0,0000000025 ?  |
|
| |
| |
| |
|
|
Thomas
Zielinski | | Wenn Yo el jetz con el me a verfügungung stehenden Statistiken bastante Unwissentschaftlich grob Überschlage podría el con un bissl Glück stimmen. |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 13.02.2008 ▲ |
|
| |
|
|
| | Lo stimmt auch entonces si lo sin disponible stehende Statistiken völlig wissenschaftlich frei de Glück exakt ermittelst. |
|
| |
| |
| |
|
(2.109)
Deutsch
English
Français
Español
Italia