MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ, что за прикол -
пробую поменять IP адрес сетевой
WideString Interfase=AdvListView2->Items->Item[AdvListView2->ItemIndex]->SubItems->Strings[1];
if (AdvColumnGrid1->Cells[6][AdvColumnGrid1->Row].Trim()!="")
{
TRegistry *reg = new TRegistry();
reg->Access = KEY_ALL_ACCESS;
reg->RootKey=HKEY_LOCAL_MACHINE;
reg->OpenKey("SYSTEM\\ControlSet001\\Services\\Tcpip\\Parameters\\Interfaces\\"+Interfase,false);
reg->WriteInteger("EnableDHCP",0);
reg->WriteExpandString("IPAddress",AdvColumnGrid1->Cells[6][AdvColumnGrid1->Row]);
reg->WriteExpandString("SubnetMask",AdvColumnGrid1->Cells[7][AdvColumnGrid1->Row]);
reg->WriteExpandString("DefaultGateway",AdvColumnGrid1->Cells[8][AdvColumnGrid1->Row]);
reg->WriteExpandString("DefaultGatewayMetric","0");
UnicodeString NameServer;
if(AdvColumnGrid1->Cells[10][AdvColumnGrid1->Row].Trim()!="")NameServer=AdvColumnGrid1->Cells[9][AdvColumnGrid1->Row].Trim()+","+AdvColumnGrid1->Cells[10][AdvColumnGrid1->Row].Trim();
else NameServer=AdvColumnGrid1->Cells[9][AdvColumnGrid1->Row].Trim();
reg->WriteString("NameServer",NameServer);
delete reg;
}
В реестр все пишется но когда открываю свойства сетевой, ничего не меняется
Если использую апи
WideString APatch="SYSTEM\\ControlSet001\\Services\\Tcpip\\Parameters\\Interfaces\\"+Interfase;
AnsiString lpData=AdvColumnGrid1->Cells[6][AdvColumnGrid1->Row];
HKEY Key;
char temp[10000];
DWORD dwBufLen,lRet;
lRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE,APatch.c_bstr(), NULL,KEY_QUERY_VALUE | KEY_SET_VALUE , &Key);
if (lRet != ERROR_SUCCESS){AnsiLastError("",1);ShowMessage(0);return;}
lRet = RegQueryValueEx( Key, L"IPAddress", NULL, NULL, NULL, &dwBufLen );
if (lRet != ERROR_SUCCESS){AnsiLastError("",1);return;}
strcat(temp, "10.31.62.50");
dwBufLen = sizeof(temp);
lRet = RegSetValueEx(Key,L"IPAddress",NULL,REG_EXPAND_SZ,temp,strlen(temp)+1);
if (lRet != ERROR_SUCCESS){AnsiLastError("",1);ShowMessage(2);return;}
RegCloseKey(Key);
вместо цифирок получаю псевдографику
В нете толком не нашел инфы о том как поменять параметры IP V4 сетевой.
Помогите разобраться, спасибо |
