archive
/
windows-xp
mirror of https://github.com/tongzx/nt5src
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
6 Commits
1 Branch
0 Tags
3.8 GiB
 
 
 
 
 
 
Tree: daad8a087a
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'daad8a087a'
${ noResults }
windows-xp/Source/XPSP1/NT/base/mvdm/wow32/wkernel.c

814 lines
24 KiB
Raw Blame History

/*++
*
* WOW v1.0
*
* Copyright (c) 1991, Microsoft Corporation
*
* WKERNEL.C
* WOW32 16-bit Kernel API support
*
* History:
* Created 07-Mar-1991 by Jeff Parsons (jeffpar)
--*/
#include "precomp.h"
#pragma hdrstop
MODNAME(wkernel.c);
ULONG FASTCALL WK32WritePrivateProfileString(PVDMFRAME pFrame)
{
ULONG ul;
PSZ pszSection;
PSZ pszKey;
PSZ pszValue;
PSZ pszFilename;
register PWRITEPRIVATEPROFILESTRING16 parg16;
BOOL fIsWinIni;
CHAR szLowercase[MAX_PATH];
GETARGPTR(pFrame, sizeof(WRITEPRIVATEPROFILESTRING16), parg16);
GETPSZPTR(parg16->f1, pszSection);
GETPSZPTR(parg16->f2, pszKey);
GETPSZPTR(parg16->f3, pszValue);
GETPSZPTR(parg16->f4, pszFilename);
UpdateDosCurrentDirectory(DIR_DOS_TO_NT);
strcpy(szLowercase, pszFilename);
WOW32_strlwr(szLowercase);
fIsWinIni = IS_WIN_INI(szLowercase);
// Trying to install or change default printer to fax printer?
if (fIsWinIni &&
pszSection &&
pszKey &&
pszValue &&
!WOW32_stricmp(pszSection, szDevices) &&
IsFaxPrinterWriteProfileString(pszSection, pszKey, pszValue)) {
ul = TRUE;
goto Done;
}
ul = GETBOOL16( WritePrivateProfileString(
pszSection,
pszKey,
pszValue,
pszFilename
));
if( ul != 0 &&
fIsWinIni &&
IS_EMBEDDING_SECTION( pszSection ) &&
pszKey != NULL &&
pszValue != NULL ) {
UpdateClassesRootSubKey( pszKey, pszValue);
}
Done:
FREEPSZPTR(pszSection);
FREEPSZPTR(pszKey);
FREEPSZPTR(pszValue);
FREEPSZPTR(pszFilename);
FREEARGPTR(parg16);
return ul;
}
ULONG FASTCALL WK32WriteProfileString(PVDMFRAME pFrame)
{
ULONG ul;
PSZ pszSection;
PSZ pszKey;
PSZ pszValue;
register PWRITEPROFILESTRING16 parg16;
GETARGPTR(pFrame, sizeof(WRITEPROFILESTRING16), parg16);
GETPSZPTR(parg16->f1, pszSection);
GETPSZPTR(parg16->f2, pszKey);
GETPSZPTR(parg16->f3, pszValue);
// For WinFax Lite install hack. Bug #126489 See wow32fax.c
if(!gbWinFaxHack) {
// Trying to install or change default printer to fax printer?
if (pszSection &&
pszKey &&
pszValue &&
!WOW32_stricmp(pszSection, szDevices) &&
IsFaxPrinterWriteProfileString(pszSection, pszKey, pszValue)) {
ul = TRUE;
goto Done;
}
} else {
IsFaxPrinterWriteProfileString(pszSection, pszKey, pszValue);
}
ul = GETBOOL16( WriteProfileString(
pszSection,
pszKey,
pszValue
));
if( ( ul != 0 ) &&
IS_EMBEDDING_SECTION( pszSection ) &&
( pszKey != NULL ) &&
( pszValue != NULL ) ) {
UpdateClassesRootSubKey( pszKey, pszValue);
}
Done:
FREEPSZPTR(pszSection);
FREEPSZPTR(pszKey);
FREEPSZPTR(pszValue);
FREEARGPTR(parg16);
return ul;
}
ULONG FASTCALL WK32GetProfileString(PVDMFRAME pFrame)
{
ULONG ul;
PSZ pszSection;
PSZ pszKey;
PSZ pszDefault;
PSZ pszReturnBuffer;
UINT cchMax;
#ifdef FE_SB
PSZ pszTmp = NULL;
#endif // FE_SB
register PGETPROFILESTRING16 parg16;
GETARGPTR(pFrame, sizeof(GETPROFILESTRING16), parg16);
GETPSZPTR(parg16->f1, pszSection);
GETPSZPTR(parg16->f2, pszKey);
GETPSZPTR(parg16->f3, pszDefault);
ALLOCVDMPTR(parg16->f4, parg16->f5, pszReturnBuffer);
cchMax = INT32(parg16->f5);
#ifdef FE_SB
//
// For those applications that expect sLongDate contains
// windows 3.1J picture format string.
//
if (GetSystemDefaultLangID() == 0x411 &&
!lstrcmpi(pszSection, "intl") && !lstrcmpi(pszKey, "sLongDate")) {
pszTmp = pszKey;
pszKey = "sLongDate16";
}
#endif // FE_SB
if (IS_EMBEDDING_SECTION( pszSection ) &&
!WasSectionRecentlyUpdated() ) {
if( pszKey == NULL ) {
UpdateEmbeddingAllKeys();
} else {
UpdateEmbeddingKey( pszKey );
}
SetLastTimeUpdated();
} else if (pszSection &&
pszKey &&
!WOW32_stricmp(pszSection, szDevices) &&
IsFaxPrinterSupportedDevice(pszKey)) {
ul = GETINT16(GetFaxPrinterProfileString(pszSection, pszKey, pszDefault, pszReturnBuffer, cchMax));
goto FlushAndReturn;
}
ul = GETINT16(GetProfileString(
pszSection,
pszKey,
pszDefault,
pszReturnBuffer,
cchMax));
//
// Win3.1/Win95 compatibility: Zap the first trailing blank in pszDefault
// with null, but only if the default string was returned. To detect
// the default string being returned we need to ignore trailing blanks.
//
// This code is duplicated in thunks for GetProfileString and
// GetPrivateProfileString, update both if you make changes.
//
if ( pszDefault && pszKey ) {
int n, nLenDef;
//
// Is the default the same as the returned string up to any NULLs?
//
nLenDef = 0;
n=0;
while (
(pszDefault[nLenDef] == pszReturnBuffer[n]) &&
pszReturnBuffer[n]
) {
n++;
nLenDef++;
}
//
// Did we get out of the loop because we're at the end of the returned string?
//
if ( '\0' != pszReturnBuffer[n] ) {
//
// No. The strings are materially different - fall out.
//
}
else {
//
// Ok, the strings are identical to the end of the returned string.
// Is the default string spaces out to the end?
//
while ( ' ' == pszDefault[nLenDef] ) {
nLenDef++;
}
//
// The last thing was not a space. If it was a NULL, then the app
// passed in a string with trailing NULLs as default. (Otherwise
// the two strings are materially different and we do nothing.)
//
if ( '\0' == pszDefault[nLenDef] ) {
char szBuf[4]; // Some random, small number of chars to get.
// If the string is long, we'll get only 3 chars
// (and NULL), but so what? - we only need to know if
// we got a default last time...
//
// The returned string is the same as the default string
// without trailing blanks, but this might be coincidence,
// so see if a call with empty pszDefault returns anything.
// If it does, we don't zap because the default isn't
// being used.
//
if (0 == GetProfileString(pszSection, pszKey, "", szBuf, sizeof(szBuf))) {
//
// Zap first trailing blank in pszDefault with null.
//
pszDefault[ul] = 0;
FLUSHVDMPTR(parg16->f3 + ul, 1, pszDefault + ul);
}
}
}
}
FlushAndReturn:
#ifdef FE_SB
if ( pszTmp )
pszKey = pszTmp;
if (CURRENTPTD()->dwWOWCompatFlagsFE & WOWCF_FE_USEUPPER) { // for WinWrite
if (pszSection && !lstrcmpi(pszSection, "windows") &&
pszKey && !lstrcmpi(pszKey, "device")) {
CharUpper(pszReturnBuffer);
}
if (pszSection && !lstrcmpi(pszSection, "devices") && pszKey) {
CharUpper(pszReturnBuffer);
}
}
#endif // FE_SB
FLUSHVDMPTR(parg16->f4, (ul + (pszSection && pszKey) ? 1 : 2), pszReturnBuffer);
FREEPSZPTR(pszSection);
FREEPSZPTR(pszKey);
FREEPSZPTR(pszDefault);
FREEVDMPTR(pszReturnBuffer);
FREEARGPTR(parg16);
RETURN(ul);
}
ULONG FASTCALL WK32GetPrivateProfileString(PVDMFRAME pFrame)
{
ULONG ul;
PSZ pszSection;
PSZ pszKey;
PSZ pszDefault;
PSZ pszReturnBuffer;
PSZ pszFilename;
UINT cchMax;
#ifdef FE_SB
PSZ pszTmp = NULL;
#endif // FE_SB
register PGETPRIVATEPROFILESTRING16 parg16;
CHAR szLowercase[MAX_PATH];
GETARGPTR(pFrame, sizeof(GETPRIVATEPROFILESTRING16), parg16);
GETPSZPTR(parg16->f1, pszSection);
GETPSZPTR(parg16->f2, pszKey);
GETPSZPTR(parg16->f3, pszDefault);
ALLOCVDMPTR(parg16->f4, parg16->f5, pszReturnBuffer);
GETPSZPTR(parg16->f6, pszFilename);
// PC3270 (Personal communications): while installing this app it calls
// GetPrivateProfileString (sectionname, NULL, defaultbuffer, returnbuffer,
// cch = 0, filename). On win31 this call returns relevant data in return
// buffer and corresponding size as return value. On NT, since the
// buffersize(cch) is '0' no data is copied into the return buffer and
// return value is zero which makes this app abort installation.
//
// So restricted compatibility:
// if above is the case set
// cch = 64k - offset of returnbuffer;
//
// A safer 'cch' would be
// cch = GlobalSize(selector of returnbuffer) -
// (offset of returnbuffer);
// - nanduri
if (!(cchMax = INT32(parg16->f5))) {
if (pszKey == (PSZ)NULL) {
if (pszReturnBuffer != (PSZ)NULL) {
cchMax = 0xffff - (LOW16(parg16->f4));
}
}
}
UpdateDosCurrentDirectory(DIR_DOS_TO_NT);
strcpy(szLowercase, pszFilename);
WOW32_strlwr(szLowercase);
if (IS_WIN_INI( szLowercase )) {
#ifdef FE_SB
//
// For those applications that expect sLongDate contains
// windows 3.1J picture format string.
//
if (GetSystemDefaultLangID() == 0x411 &&
lstrcmpi( pszSection, "intl") == 0 &&
lstrcmpi( pszKey, "sLongDate") == 0) {
pszTmp = pszKey;
pszKey = "sLongDate16";
}
#endif // FE_SB
if (IS_EMBEDDING_SECTION( pszSection ) &&
!WasSectionRecentlyUpdated() ) {
if( pszKey == NULL ) {
UpdateEmbeddingAllKeys();
} else {
UpdateEmbeddingKey( pszKey );
}
SetLastTimeUpdated();
} else if (pszSection &&
pszKey &&
!WOW32_stricmp(pszSection, szDevices) &&
IsFaxPrinterSupportedDevice(pszKey)) {
ul = GETINT16(GetFaxPrinterProfileString(pszSection, pszKey, pszDefault, pszReturnBuffer, cchMax));
goto FlushAndReturn;
}
}
ul = GETUINT16(GetPrivateProfileString(
pszSection,
pszKey,
pszDefault,
pszReturnBuffer,
cchMax,
pszFilename));
// start comaptibility hacks
//
// Win3.1/Win95 compatibility: Zap the first trailing blank in pszDefault
// with null, but only if the default string was returned. To detect
// the default string being returned we need to ignore trailing blanks.
//
// This code is duplicated in thunks for GetProfileString and
// GetPrivateProfileString, update both if you make changes.
//
if ( pszDefault && pszKey ) {
int n, nLenDef;
//
// Is the default the same as the returned string up to any NULLs?
//
nLenDef = 0;
n=0;
while (
(pszDefault[nLenDef] == pszReturnBuffer[n]) &&
pszReturnBuffer[n]
) {
n++;
nLenDef++;
}
//
// Did we get out of the loop because we're at the end of the returned string?
//
if ( '\0' != pszReturnBuffer[n] ) {
//
// No. The strings are materially different - fall out.
//
}
else {
//
// Ok, the strings are identical to the end of the returned string.
// Is the default string spaces out to the end?
//
while ( ' ' == pszDefault[nLenDef] ) {
nLenDef++;
}
//
// The last thing was not a space. If it was a NULL, then the app
// passed in a string with trailing NULLs as default. (Otherwise
// the two strings are materially different and we do nothing.)
//
if ( '\0' == pszDefault[nLenDef] ) {
char szBuf[4]; // Some random, small number of chars to get.
// If the string is long, we'll get only 3 chars
// (and NULL), but so what? - we only need to know if
// we got a default last time...
//
// The returned string is the same as the default string
// without trailing blanks, but this might be coincidence,
// so see if a call with empty pszDefault returns anything.
// If it does, we don't zap because the default isn't
// being used.
//
if (0 == GetProfileString(pszSection, pszKey, "", szBuf, sizeof(szBuf))) {
//
// Zap first trailing blank in pszDefault with null.
//
pszDefault[ul] = 0;
FLUSHVDMPTR(parg16->f3 + ul, 1, pszDefault + ul);
}
}
}
}
if( CURRENTPTD()->dwWOWCompatFlagsEx & WOWCFEX_SAYITSNOTTHERE ) {
// CrossTalk 2.2 gets hung in a loop while trying to match a printer in
// their xtalk.ini file with a printer name in the PrintDlg listbox.
// There is a bug in their code for handling this that gets exposed by
// the fact that NT PrintDlg listboxes do not include the port name as
// Win3.1 & Win'95 do. We avoid the buggy code altogether with this
// hack by telling them that the preferred printer isn't stored in
// xtalk.ini. See bug #43168 a-craigj
// Maximizer 5.0 has similar problem. it tries to parse
// print driver location however, allocates too small buffer. See
// Whistler bug 288491
if(!WOW32_stricmp(pszSection, "Printer")) {
if((WOW32_strstr(szLowercase, "xtalk.ini") && !WOW32_stricmp(pszKey, "Device")) || // CrossTalk 2.2
(WOW32_strstr(szLowercase, "bclwdde.ini") && !WOW32_stricmp(pszKey, "Driver")) ){ // Maximizer 5
strcpy(pszReturnBuffer, pszDefault);
ul = strlen(pszReturnBuffer);
}
}
// WHISTLER RAID BUG # 379253 05/06/2001 - alexsm
// National Geographic Explorer needed the oppisite of the above. The app
// was checking for a QTWVideo string, which contained a path to a quicktime
// driver. Without the key, the app wouldn't play video. It's not really a
// SAYITSNOTTHERE, more of a SAYITISTHERE, but this saves on compat bits.
if(!WOW32_stricmp(pszSection, "mci")) {
if((WOW32_strstr(szLowercase, "system.ini") && !WOW32_stricmp(pszKey, "QTWVideo"))) {
CHAR szMCIQTW[] = "\\system\\mciqtw.drv";
CHAR szQTWVideo[MAX_PATH + sizeof(szMCIQTW) / sizeof(CHAR)]; // make sure there's room for the new string (max_path + pszMCIQTW)
GetSystemWindowsDirectory(szQTWVideo, MAX_PATH);
strcat(szQTWVideo, szMCIQTW);
strncpy(pszReturnBuffer, szQTWVideo, cchMax - 1);
*(pszReturnBuffer + (cchMax - 1)) = '\0';
ul = strlen(szQTWVideo);
}
}
}
FlushAndReturn:
#ifdef FE_SB
if ( pszTmp )
pszKey = pszTmp;
#endif // FE_SB
if (ul) {
FLUSHVDMPTR(parg16->f4, (ul + (pszSection && pszKey) ? 1 : 2), pszReturnBuffer);
LOGDEBUG(8,("GetPrivateProfileString returns '%s'\n", pszReturnBuffer));
}
#ifdef DEBUG
//
// Check for bad return on retrieving entire section by walking
// the section making sure it's full of null-terminated strings
// with an extra null at the end. Also ensure that this all fits
// within the buffer.
//
if (!pszKey) {
PSZ psz;
//
// We don't want to complain if the poorly-formed buffer was the one
// passed in as pszDefault by the caller.
//
// Although the api docs clearly state that pszDefault should never
// be null but win3.1 is nice enough to still deal with this. Delphi is
// passing pszDefault as NULL and this following code causes an
// assertion in WOW. So added the pszDefault check first.
//
// sudeepb 11-Sep-1995
if (!pszDefault || WOW32_strcmp(pszReturnBuffer, pszDefault)) {
psz = pszReturnBuffer;
while (psz < (pszReturnBuffer + ul + 2) && *psz) {
psz += strlen(psz) + 1;
}
WOW32ASSERTMSGF(
psz < (pszReturnBuffer + ul + 2),
("GetPrivateProfileString of entire section returns poorly formed buffer.\n"
"pszReturnBuffer = %p, return value = %d\n",
pszReturnBuffer,
ul
));
}
}
#endif // DEBUG
FREEPSZPTR(pszSection);
FREEPSZPTR(pszKey);
FREEPSZPTR(pszDefault);
FREEVDMPTR(pszReturnBuffer);
FREEPSZPTR(pszFilename);
FREEARGPTR(parg16);
RETURN(ul);
}
ULONG FASTCALL WK32GetProfileInt(PVDMFRAME pFrame)
{
ULONG ul;
PSZ psz1;
PSZ psz2;
register PGETPROFILEINT16 parg16;
GETARGPTR(pFrame, sizeof(GETPROFILEINT16), parg16);
GETPSZPTR(parg16->f1, psz1);
GETPSZPTR(parg16->f2, psz2);
ul = GETWORD16(GetProfileInt(
psz1,
psz2,
INT32(parg16->f3)
));
//
// In HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics, there
// are a bunch of values that define the screen appearance. You can
// watch these values get updated when you go into the display control
// panel applet and change the "appearance scheme", or any of the
// individual elements. The win95 shell is different than win31 in that it
// sticks "twips" values in there instead of pixels. These are calculated
// with the following formula:
//
// twips = - pixels * 72 * 20 / cyPixelsPerInch
//
// pixels = -twips * cyPixelsPerInch / (72*20)
//
// So if the value is negative, it is in twips, otherwise it in pixels.
// The idea is that these values are device independent. NT is
// different than win95 in that we provide an Ini file mapping to this
// section of the registry where win95 does not. Now, when the Lotus
// Freelance Graphics 2.1 tutorial runs, it mucks around with the look
// of the screen, and it changes the border width of window frames by
// using SystemParametersInfo(). When it tries to restore it, it uses
// GetProfileInt("Windows", "BorderWidth", <default>), which on win31
// returns pixels, on win95 returns the default (no ini mapping), and
// on NT returns TWIPS. Since this negative number is interpreted as
// a huge UINT, then the window frames become huge. What this code
// below will do is translate the number back to pixels. [neilsa]
//
if ((CURRENTPTD()->dwWOWCompatFlagsEx & WOWCFEX_PIXELMETRICS) &&
!WOW32_stricmp(psz1, "Windows") &&
!WOW32_stricmp(psz2, "BorderWidth") &&
((INT)ul < 0)) {
HDC hDC = CreateDC("DISPLAY", NULL, NULL, NULL);
if ( !hDC ) {
ul = (ULONG) (-(INT)ul * GetDeviceCaps(hDC, LOGPIXELSY)/(72*20));
DeleteDC(hDC);
}
}
FREEPSZPTR(psz1);
FREEPSZPTR(psz2);
FREEARGPTR(parg16);
RETURN(ul);
}
ULONG FASTCALL WK32GetPrivateProfileInt(PVDMFRAME pFrame)
{
ULONG ul;
PSZ psz1;
PSZ psz2;
PSZ psz4;
register PGETPRIVATEPROFILEINT16 parg16;
GETARGPTR(pFrame, sizeof(GETPRIVATEPROFILEINT16), parg16);
GETPSZPTR(parg16->f1, psz1);
GETPSZPTR(parg16->f2, psz2);
GETPSZPTR(parg16->f4, psz4);
UpdateDosCurrentDirectory(DIR_DOS_TO_NT);
ul = GETWORD16(GetPrivateProfileInt(
psz1,
psz2,
INT32(parg16->f3),
psz4
));
// jarbats
// sierra's setup faults overwriting video/sound buffer
// limits. by returning videospeed as non-existent
// we force it to use the default videospeed path,not the optimized
// "bad" path code.
// this is matching with setup.exe in the registry which is not specific
// enough. post-beta2 enhance matching process to match version resources
if( (CURRENTPTD()->dwWOWCompatFlagsEx & WOWCFEX_SAYITSNOTTHERE) &&
!WOW32_stricmp(psz4, "sierra.ini") &&
!WOW32_stricmp(psz1, "Config") &&
!WOW32_stricmp(psz2, "VideoSpeed")
) {
ul = parg16->f3;
}
FREEPSZPTR(psz1);
FREEPSZPTR(psz2);
FREEPSZPTR(psz4);
FREEARGPTR(parg16);
RETURN(ul);
}
ULONG FASTCALL WK32GetModuleFileName(PVDMFRAME pFrame)
{
ULONG ul;
PSZ psz2;
register PGETMODULEFILENAME16 parg16;
HANDLE hT;
GETARGPTR(pFrame, sizeof(GETMODULEFILENAME16), parg16);
ALLOCVDMPTR(parg16->f2, parg16->f3, psz2);
//
// ShellExecute DDE returns (HINST)33 when DDE is used
// to satisfy a request. This looks like a task alias
// to ISTASKALIAS but it's not.
//
if ( ISTASKALIAS(parg16->f1) && 33 != parg16->f1) {
ul = GetHtaskAliasProcessName(parg16->f1,psz2,INT32(parg16->f3));
} else {
hT = (parg16->f1 && (33 != parg16->f1))
? (HMODULE32(parg16->f1))
: GetModuleHandle(NULL) ;
ul = GETINT16(GetModuleFileName(hT, psz2, INT32(parg16->f3)));
}
FLUSHVDMPTR(parg16->f2, strlen(psz2)+1, psz2);
FREEVDMPTR(psz2);
FREEARGPTR(parg16);
RETURN(ul);
}
ULONG FASTCALL WK32WOWFreeResource(PVDMFRAME pFrame)
{
ULONG ul;
register PWOWFREERESOURCE16 parg16;
GETARGPTR(pFrame, sizeof(*parg16), parg16);
ul = GETBOOL16(FreeResource(
HCURSOR32(parg16->f1)
));
FREEARGPTR(parg16);
RETURN(ul);
}
ULONG FASTCALL WK32GetDriveType(PVDMFRAME pFrame)
{
ULONG ul;
CHAR RootPathName[] = "?:\\";
register PGETDRIVETYPE16 parg16;
GETARGPTR(pFrame, sizeof(GETDRIVETYPE16), parg16);
// Form Root path
RootPathName[0] = (CHAR)('A'+ parg16->f1);
ul = GetDriveType (RootPathName);
// bugbug - temporariy fixed, should be removed when base changes
// its return value for non-exist drives
// Windows 3.0 sdk manaul said this api should return 1
// if the drive doesn't exist. Windows 3.1 sdk manual said
// this api should return 0 if it failed. Windows 3.1 winfile.exe
// expects 0 for noexisting drives. The NT WIN32 API uses
// 3.0 convention. Therefore, we reset the value to zero
// if it is 1.
if (ul <= 1)
ul = 0;
// DRIVE_CDROM and DRIVE_RAMDISK are not supported under Win 3.1
if ( ul == DRIVE_CDROM ) {
ul = DRIVE_REMOTE;
}
if ( ul == DRIVE_RAMDISK ) {
ul = DRIVE_FIXED;
}
FREEARGPTR(parg16);
RETURN(ul);
}
/* WK32TermsrvGetWindowsDir - Front end to TermsrvGetWindowDirectory.
*
*
* Entry - pszPath - Pointer to return buffer for path (ascii)
* usPathLen - Size of path buffer (bytes)
*
* Exit
* SUCCESS
* True
*
* FAILURE
* False
*
*/
ULONG FASTCALL WK32TermsrvGetWindowsDir(PVDMFRAME pFrame)
{
PTERMSRVGETWINDIR16 parg16;
PSTR psz;
NTSTATUS Status = 0;
USHORT usPathLen;
//
// Get arguments.
//
GETARGPTR(pFrame, sizeof(TERMSRVGETWINDIR16), parg16);
psz = SEGPTR(FETCHWORD(parg16->pszPathSegment),
FETCHWORD(parg16->pszPathOffset));
usPathLen = FETCHWORD(parg16->usPathLen);
FREEARGPTR(parg16);
Status = GetWindowsDirectoryA(psz, usPathLen);
// If this is a long path name then get the short one
// Otherwise it will return the same path
GetShortPathNameA(psz, psz, (DWORD)Status);
// Get the real size.
Status = lstrlen(psz);
return(NT_SUCCESS(Status));
}