| |
| |
|
Jac
de
Lad | Gibts une API avec qui sich rausfinden peut, combien RAM mon Prog verwendet ()dans etwa so, comment qui Taskmanager cela 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 je aussi volontiers! |
|
| |
| |
| |
|
|
Sebastian
König | sous NT-basierten System peut sich peut-être hiermit quelque chose anfangen:
KompilierenMarqueSéparation $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
quoi là ermittelt wird, ist allerdings qui Taille des kompletten virtuellen Speicherbereichs, den un Prozess belegt...
HTH
Sebastian |
|
| |
| |
| |
|
|
Jac
de
Lad | | Nee, c'est irgendwas d'autre... |
|
| |
| 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, mais presque!  Ergänz fois le Ausgabe à la ligne
imprimer WorkingSetSize:,long(pMem#,16) 1024,KB
Pour meinen Tests ist cela oui c'est ca qui Wert, qui aussi im Task-Manger angezeigt wird...
MfG
Sebastian |
|
| |
| |
| |
|
|
Jac
de
Lad | | Aha, coole l'affaire, merci. |
|
| |
| 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 | | mais ne allgemeingültige Funktion pas? je mon pour alle 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
mais ne allgemeingültige Funktion pas? je mon pour alle WIndows-Versionen.
oui, ist comment dit seulement pour NT-basierte Systeme. Pour Win9x/ME gibt es peut-être une autre Possibilité... mais qui benutzt cela déjà encore? 
et encore une Bemerkung: si es seulement um den eigenen Prozess allez, peux on sich AdjustTokenPrivileges-partie wohl sparen. qui pourrait chez eingeschränkten Benutzerkonten aussi de travers aller...
MfG
Sebastian |
|
| |
| |
| |
|
|
Thomas
Zielinski | Sebastian König
oui, ist comment dit seulement pour NT-basierte Systeme. Pour Win9x/ME gibt es peut-être une autre Possibilité... mais qui benutzt cela déjà encore?
qui MMJ utilise cela alles encore jeden vendredi dans qui semaine  |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 13.02.2008 ▲ |
|
| |
|
|
| @Thomas: cela wäre ensuite alors 1:0,0000000025 ?  |
|
| |
| |
| |
|
|
Thomas
Zielinski | | si je cela jetz avec den mir zur verfügungung stehenden Statistiken entier Unwissentschaftlich grob Überschlage pourrait cela avec un bissl Glück stimmen. |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 13.02.2008 ▲ |
|
| |
|
|
| | Es stimmt aussi ensuite si Du es sans zur Disposition stehende Statistiken völlig wissenschaftlich libre de Glück exakt ermittelst. |
|
| |
| |
| |
|
(1.119)
Deutsch
English
Français
Español
Italia