HCRYPTPROV CryptProv;
HCRYPTHASH CryptHash;
BYTE BytesHash[16];
DWORD dwHashLen = 16;
_TCHAR theOut[MAX_PATH];

/* если задаю аргумент так, работает правильно */
// char *data = "test f_md5";
/* если беру входящий аргумент "test f_md5" из функции f_md5(ref string), то не работает правильно */
////////
char *data;
LPCTSTR lptheInput = NULL;
pbstring val = ci->pArgs->GetAt(0)->GetString();
lptheInput = m_pSession->GetString(val);
data = (LPSTR)lptheInput;
///////

BYTE *pbBuffer = (BYTE*)data;
DWORD dwBufferLen = strlen(data);
if (CryptAcquireContext(&CryptProv,
	NULL, NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT | CRYPT_MACHINE_KEYSET))
	{
		if (CryptCreateHash(CryptProv, CALG_MD5, 0, 0, &CryptHash))
		{
			if (CryptHashData(CryptHash, pbBuffer, dwBufferLen, 0))
			{
				if (CryptGetHashParam(CryptHash, HP_HASHVAL, BytesHash, &dwHashLen, 0))
				{
					CHAR hexcharset[] = "0123456789abcdef";
					for (int j = 0; j < dwHashLen; j++)
					{
						theOut[j*2] = hexcharset[BytesHash[j] >> 4];
						theOut[(j*2)+1] = hexcharset[BytesHash[j] & 0x0F];
					}

				}
				else {
					//"Error CryptGetHashParam";
				}
			}
			else {
				//"Error CryptHashData";
			}
		}
		else {
			//"Error CryptCreateHash";
		}
	}
	else {
		//"Error CryptAcquireContext";
	}
	CryptDestroyHash(CryptHash);
	CryptReleaseContext(CryptProv, 0);

         ci->returnValue->SetString(theOut);

}
return pbxr;

string ls_rtn
ls_rtn = f_test(this) /* вызов функции PBX */
MessageBox("test", ls_rtn)

...
pbboolean isNull;
/* передаю параметр - объект приложения */
pbobject obj = ci->pArgs->GetAt(0)->GetObject();
pbclass cls = ci->pArgs->GetAt(0)->GetClass();
if (cls == NULL) {
   ci->returnValue->SetString(_T("Class is NULL"));
}
else {
   LPCTSTR FieldName = _T("classdefinition");
   pbfieldID fid = session->GetFieldID(cls, FieldName);
   if (fidcls == kUndefinedFieldID) {
      ci->returnValue->SetString(_T("Undefined FieldID"));
   }
   else {
      /* в GetObjectField нужен таки объект, а не класс */
      pbobject objclsdef = m_pSession->GetObjectField(obj, fid, isNull);
      if (objclsdef == NULL) {
	 ci->returnValue->SetString(_T("ObjectField is NULL"));
      }
      else {
	 ci->returnValue->SetString(_T("ObjectField is NOT NULL")); /* сюда доходит */
      }
   }
}

pbgroup sysGroup = m_pSession->GetSystemGroup();
pbclass cls = m_pSession->FindClass(sysGroup, (LPCTSTR)_TEXT("SystemFunctions"));
if (cls == NULL) {
   ci->returnValue->SetString(_T("Class is NULL"));
}
else {
   LPCTSTR f_name = _T("halt");
   LPCTSTR signature = _T(""); /* ? */
   /* так не работает */
   //pbmethodID mid = m_pSession->FindMatchingFunction(cls, f_name, PBRT_FUNCTION, signature);
   /* и так тоже не работает */
   pbmethodID mid = m_pSession->GetMethodID(cls, f_name, PBRT_FUNCTION, signature);
   if (mid == kUndefinedMethodID) {
	ci->returnValue->SetString(_T("UndefinedMethodID Halt"));
   }
   else {
       ... /* сюда уже не доходит */
   }
}

/* в РВ так работает */
lul_hDisk = CreateFile( "\\.\c:", 0, FILE_SHARE_READ_OR_WRITE, 0, OPEN_EXISTING, 0, 0)
/* а так нет */
lul_hDisk = CreateFile( "\\.\PhysicalDrive0", 0, FILE_SHARE_READ_OR_WRITE, 0, OPEN_EXISTING, 0, 0)

/* в PBNI так работает */
CreateFile(L"\\\\.\\PhysicalDrive0", 0, FILE_SHARE_READ | FILE_SHARE_WRITE,
					NULL, OPEN_EXISTING, 0, NULL);
/* а так нет */
CreateFile(L"\\.\c:", 0, FILE_SHARE_READ | FILE_SHARE_WRITE,
					NULL, OPEN_EXISTING, 0, NULL);

// Set the input data structure
STORAGE_PROPERTY_QUERY storagePropertyQuery;
ZeroMemory(&storagePropertyQuery, sizeof(STORAGE_PROPERTY_QUERY));
storagePropertyQuery.PropertyId = StorageDeviceProperty;  //=0
storagePropertyQuery.QueryType = PropertyStandardQuery; //=0

// Get the necessary output buffer size
STORAGE_DESCRIPTOR_HEADER storageDescriptorHeader = { 0 };
DWORD dwBytesReturned = 0;
if (!::DeviceIoControl(hDevice, IOCTL_STORAGE_QUERY_PROPERTY,
	&storagePropertyQuery, sizeof(STORAGE_PROPERTY_QUERY),
	&storageDescriptorHeader, sizeof(STORAGE_DESCRIPTOR_HEADER),
	&dwBytesReturned, NULL))
{
	dwRet = ::GetLastError();
	::CloseHandle(hDevice);
	return dwRet;
}

nvo_sizeof	uo_sizeof
	
STORAGE_PROPERTY_QUERY query
query.PropertyId = StorageDeviceProperty
query.QueryType = PropertyStandardQuery
lul_lpInBuffer = uo_sizeof.sizeof(query)
	
STORAGE_DESCRIPTOR_HEADER storageDescriptorHeader
lul_lpOutBuffer = uo_sizeof.sizeof(storageDescriptorHeader)
lul_lpBytesReturned = 0

If DeviceIoControl( lul_hDisk, IOCTL_STORAGE_QUERY_PROPERTY,
	query, lul_lpInBuffer, storageDescriptorHeader,
	lul_lpOutBuffer, lul_lpBytesReturned, 0) = 0 Then
	Messagebox("STORAGE_QUERY_PROPERTY", "INVALID_HANDLE_VALUE")
Else
	Messagebox("STORAGE_QUERY_PROPERTY", "OK")
End If
/*
Function boolean DeviceIoControl ( &
	ulong hDevice,&
	ulong dwIoControlCode,&
	Structure lpInBuffer,&
	ulong nInBufferSize,&
	ref Structure lpOutBuffer,&
	ulong nOutBufferSize,&
	ref ulong lpBytesReturned,&
	ulong lpOverlapped &
	) LIBRARY "kernel32.dll"
*/