{$MinEnumSize 4}
https://docwiki.embarcadero.com/RADS..._size_(Delphi)
PS: statt der
ANSI-Versionen A vielleicht langsam auch mal auf
Unicode W umsteigen?
Delphi-Quellcode:
TWTSQuerySessionInformationW = function(hServer: THandle; SessionId: DWORD; WTSInfoClass: _WTS_INFO_CLASS; var ppBuffer: Pointer; var pBytesReturned: DWORD): BOOL; stdcall;
_TWTSQuerySessionInformationW := GetProcAddress(LoadLibrary('wtsapi32.dll'), 'WTSQuerySessionInformationW');
Der Name in ppBuffer ist dann natürlich
Unicode (PWideChar) und nicht mehr
ANSI.
Die Funktion gibt es nun schon seit Vista/WindowsServer2008.
Da alles vor Windows 10 bereits tot ist, könnte man das auch statisch einbinden, anstatt dynamisch,
aber falls man will, dann ginge es auch als Delayed-Loading.
https://docwiki.embarcadero.com/Code...ading_(Delphi)
Imports und Hooks kann man sich sparen, weil ist seit Jahren integriert.