Win32::API WTSFreeMemory (Fragen zu Perl-Modulen) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Fragen zu Perl-Modulen

2024-04-19 07:01:11
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]20432[/thread]

submit to reddit

Win32::API WTSFreeMemory

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

petera

2018-03-02 13:19
User since
2018-03-02
1 Artikel
BenutzerIn
Hallo,

ich verwende über Win32::API z.B. WTSEnumerateSessions oder WTSQuerySessionInformation. In beiden Fällen muss ich Speicher mit WTSFreeMemory freigeben. Nur scheint leider genau das über Winn32::API nicht zu funktionieren (Win7/10), der Speicherverbrauch steigt bei wiederholtem Aufruf kontinuierlich. Kennt jemand das Problem bzw. die Lösung?

Beispiel (verkürzt):
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

use Win32::API; Win32::API->Import('wtsapi32.dll','WTSEnumerateSessions','NNNPP','N'); Win32::API->Import('wtsapi32.dll','WTSFreeMemory','P',''); while ( 1 ) { my $Count = pack 'L', 0; my $pSessionInfo = pack 'L', 0; WTSEnumerateSessions(0,0,1,$pSessionInfo,$Count); WTSFreeMemory($pSessionInfo); select undef, undef, undef, 0.01; }
Gruß Peter
Last edited: 2018-03-02 13:47:14 +0100 (CET)

View all threads created 2018-03-02 13:19.