Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
MODULE('WTSAPI32.DLL')
WTSFreeMemory(ULONG),PASCAL
WTSQuerySessionInformation(ULONG,ULONG,ULONG,*ULONG,*ULONG),ULONG,PASCAL,RAW,NAME('WTSQuerySessionInformationA')
END
MemoryAddr ULONG
StringRef &CSTRING
WTSCurrServer LONG(0h)
WTSCurrSession LONG(-1h)
WTSClientAddress LONG(14)
WTSClientName LONG(10)
! Get client computer name
lcl:Result = WTSQuerySessionInformation(WTS_Current_Server_Handle,WTS_Current_Session,WTSClientName,MemoryAddr,lcl:Length)
IF lcl:Result
StringRef &= (MemoryAddr)
glo:ClientName = StringRef
END
WTSFreeMemory(MemoryAddr)