WTSQuerySessionInformationA falscher Parameter

[himitsu]

{$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.