Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

Перевод с C++ на Delphi   Найти похожие ветки 

← →
Alex_Petr ©   (2004-12-17 17:21) [0]

Здравствуйте.
Помогите, пожалуйста перевести:
CComBSTR bstrMask;
       if (bLocalOnly)
           bstrMask = L"\\\\.\\";
       else
           bstrMask = L"\\\\*\\";
       bstrMask.Append(lpszClass);
       bstrMask.Append(L"\\*");
на Delphi.

---

← →
han_malign ©   (2004-12-17 17:41) [1]

примерно так
............
var bstrMask: PWideChar;
    strMask: string;
begin
   if(bLocaOnly)
   then strMask:="\\.\"
   else strMask:="\\*\";
   strMask:=strMask+lpszClass+"\*";
   bstrMask:=StringToOleStr(strMask);
............

---

← →
Alex_Petr ©   (2004-12-17 17:46) [2]

Спасибо !

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c