IEnroll* CertEnroll = NULL;

	CLSID CLSID_CCertEnroll;

	HRESULT hr = CoInitialize(NULL);
	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}

	hr =	CoCreateInstance(CLSID_CEnroll,NULL,CLSCTX_INPROC_SERVER,IID_IEnroll,(void **)&CertEnroll );
	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}
	hr =	CertEnroll->put_ProviderNameWStr(L"Crypto-Pro GOST R 34.10-2001 Cryptographic Service Provider");
	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}
	hr = 	CertEnroll->put_ProviderType(75);
	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}                              // AT_KEYEXCHANGE  XCN_AT_SIGNATURE
	hr =	CertEnroll->put_KeySpec(AT_KEYEXCHANGE|AT_SIGNATURE); // пытался тут сделать но не вышло
	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}
	hr = 	CertEnroll->put_MyStoreFlags(CERT_SYSTEM_STORE_LOCAL_MACHINE);
	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}
//	HCRYPTPROV hProv = 0;                
 //1.3.6.1.4.1.311.10.3.12  	подписание документа AT_SIGNATURE (цифровая подпись)
//1.2.643.3.31415.1           обмен док. в нутри организации AT_KEYEXCHANGE
//	HCRYPTKEY hKey = 0;                   
//	if(!CryptGenKey(hProv, CALG_SHA1, AT_KEYEXCHANGE, &hKey)) {
//		ShowMessage("FAIL CryptGenKey");
//	}
//	unsigned long u;

	String zap="";
	String zapr="";
	if (Edit1->Text == "") {
		zapr = "C:\\zapros.p10";
	}
	else {
        zapr = Edit1->Text;
    }

	wchar_t* w = new wchar_t[2];

	w[0] = '\'';
	w[1] = '\0';
	if (mail!= "")
		zap = "CN="+name_usr+ ",OU=о."+ otdel +",O=ОАО "+w+w+"строй"+w+w+",L=Город,S=область,C=RU,E=" + mail;
	else
		zap = "CN="+name_usr+ ",OU=о."+ otdel +",O=ОАО "+w+w+"строй"+w+w+",L=Город,S=область,C=RU";
	ShowMessage(zap);

	hr =	CertEnroll->createFilePKCS10WStr(zap.w_str(),L"",zapr.w_str());


	if (FAILED(hr))
	{
	ShowMessage(GetLastError());
	Close();
	}