取Run下所有值(原創)

2019-11-18 17:57:16

字體：大中小

來源：轉載

供稿：網友

end;

//寫入內容到注冊表Run里
procedure TForm3.FlatButton2Click(Sender: TObject);
var
Reg:Tregistry;
begin
if not (edit1.Text='')then //檢查項目名稱不為空
if not (edit2.Text='') then//檢查項目路徑不為空
//如果兩者完全不為空,則執行以下代碼!
begin
Reg:=Tregistry.Create;
Reg.Rootkey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software/Microsoft/windows/CuRRentVersion/Run',False);
Reg.WriteString(Edit1.Text,Edit2.text);
Reg.CloseKey;
Reg.Free;
StatusBar1.Panels[0].Text:='網吧助手提醒您:添加啟動項目成功!';
end;
if (edit1.Text='')then //檢查項目名稱是空
begin
StatusBar1.Panels[0].Text:='網吧助手提醒您:項目名稱不能為空!';
end;
if (edit2.Text='') then //檢查項目路徑是空
begin
StatusBar1.Panels[0].Text:='網吧助手提醒您:項目路徑不能為空!';
end;
if (edit1.Text='')then //檢查項目名稱是空
if (edit2.Text='') then //檢查項目路徑是空
begin
StatusBar1.Panels[0].Text:='網吧助手提醒您:項目名稱和路徑都不能為空!';
end
end;
end.

發布人：Jony　分類：編程相關　發布時間： 2005-6-21

你這個咋就這么長？我也把我以前寫的枚舉RUN鍵的代碼貼出來玩玩~~
bool CSystemDlg::RegRun()
{
HKEY   hKey;
char Value[1024];
DWord szSize;
LPTSTR RegKey ="SOFTWARE//Microsoft//Windows//CurrentVersion//Run";
TCHAR  EnvironVariable[1024];
DWORD  dwIndex=0;
DWORD  dwVariableLength;
DWORD  dwReturn;
    DWORD  Return;
CString id="";
CString name="";
CString path="";

dwReturn = RegOpenKeyEx(HKEY_LOCAL_MACHINE,RegKey,0,KEY_QUERY_VALUE,&hKey);
if(dwReturn != ERROR_SUCCESS)
{
return FALSE;
}

for(dwIndex=0;;dwIndex++)
{
dwVariableLength = 1024;
Return=RegEnumValue(hKey,dwIndex,EnvironVariable,&dwVariableLength,NULL,NULL,NULL,NULL);
szSize = sizeof(Value);
    RegQueryValueEx(hKey,EnvironVariable,NULL,NULL,(LPBYTE)Value,&szSize);
path.Format("%s",Value);
if(Return == ERROR_NO_MORE_ITEMS)
{
break;
}
id.Format("%d",dwIndex);
m_reglist.InsertItem(dwIndex, id ,NULL);
name.Format("%s",EnvironVariable);
m_reglist.SetItemText(dwIndex,1,name);
m_reglist.SetItemText(dwIndex,2,path);
}
RegCloseKey(hKey);
return TRUE;
}

void CSystemDlg::OnButton4()
{
HKEY   key;
CString R_name;
DWORD  dwReturn;
R_name=m_reglist.GetItemText(m_reglist.GetNextItem(-1,LVNI_FOCUSED|LVNI_SELECTED),1);
if(RegOpenKey(HKEY_LOCAL_MACHINE,"Software//Microsoft//Windows//CurrentVersion//Run",&key)==ERROR_SUCCESS)
{
dwReturn=RegDeleteValue(key,R_name);
}

if(dwReturn==ERROR_SUCCESS)
{
       MessageBox("刪除成功!","提醒",MB_ICONWARNING);
   m_reglist.DeleteItem(m_reglist.GetNextItem(-1,LVNI_FOCUSED|LVNI_SELECTED));
}
  else
  {
           MessageBox("刪除失敗!","提醒",MB_ICONSTOP);
  }

  RegCloseKey(key);

上一篇：實現在virtualStringtree中編輯的標準步驟

下一篇：解決了datatree的‘死節點’問題