delphi在64位系统下写注册表注意事项

原創 cmd9x 2020-02-22 06:16

HKEY_LOCAL_MACHINE写这个主键下的项，在64位系统下可能会重定向，所以构造时要加KEY_WOW64_64KEY


  reg := TRegistry.Create(KEY_WRITE or KEY_READ or KEY_WOW64_64KEY);
  reg.RootKey := HKEY_LOCAL_MACHINE;


这样就行了，否则重定向发生后你会发现：能写进去，读出来的就是不对，嘿嘿

cmd9x
发布了61 篇原创文章 · 获赞 10 · 访问量 8万+
私信 关注
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

一个漂亮的Delphi程序(Delphi在分形艺术中的应用)

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type 

cnssk 2020-07-07 14:41:56

FireDAC 学习 - 3：建立数据库连接 之 TFDManager

使用數據庫，第一步是建立和數據庫的連接。結果關於連接，不是第一篇，而是本系列第三篇。 我使用 FireBird 開源數據庫作爲測試。FireDAC 支持 FireBird。 在本系列第一篇，我沒有仔細說 FDConnection1 是如何

pcplayer 2020-07-07 09:56:56

FireDAC 学习 - 6：CachedUpdates 模式下查看被删除的记录

概念 前面的文章 FireDAC 學習 - 5 講到，將 FdQuery 和 FdMemTable 的 CachedUpdates 設置爲 True，然後在 FdMemTable 裏面編輯後，可以讀取到編輯改動的記錄，將編輯改動過的記錄輸

pcplayer 2020-07-07 09:56:55

FireDAC 学习 - 4：属性继承

我們知道，TFdQuery 是通過 TFdConnection 去連接數據庫的。 而 TFdConnection 連接數據庫的參數，可以通過 TFdManager 獲得。 打開前面的例子程序，在設計期，選擇 FdQuery1，看看其屬性面

pcplayer 2020-07-07 09:56:55

FireDAC 学习 - 5：三层，远程提交，公文包模式

問題需求： 以前版本的 Delphi，三層架構的程序，採用 TClientDataSet 來作爲客戶端的內存表，所有用戶操作都是針對 TClientDataSet 裏面的記錄進行增刪改的操作。在這裏，用戶修改後的記錄，叫做 Delta。操

pcplayer 2020-07-07 09:56:55

Delphi获取屏幕分辨率

GetSystemMetrics(SM_CXSCREEN);  //水平分辨率 GetSystemMetrics(SM_CYSCREEN);  //垂直分辨率

YanJinrong 2020-07-07 09:39:01

Delphi打开Windows启动菜单

  procedure TForm1.Button1Click(Sender: TObject);    begin     SendMessage(handle,WM_SYSCOMMAND,SC_TASKLIST,0);   end;

YanJinrong 2020-07-07 09:39:00

Delphi隐藏和显示Windows的任务栏

//隱藏任務條 procedure HideTaskBar; var   h1: THandle;   wndClass: array[0..50] of Char; begin   StrPCopy(@wndClass[0], 'She

YanJinrong 2020-07-07 09:39:00

Delphi下遍历文件夹下所有文件的递归算法

procedure MakeTree(var slFile: TStrings; const FileExt: string); var   Sr : TSearchRec;   Err : integer;   TrSize, File

yonghenghaha 2020-07-07 04:45:17

Delphi 编写数字签名验证并获取签名信息

[摘要]本文介紹Delphi 編寫數字簽名驗證並獲取簽名信息，並提供詳細的示例代碼供參考。 一個客戶想通過編程實現驗證程序自身的數字簽名來確保程序的完整性，防範病毒感染以及防止一些無聊人士的修改(通過十六進制編輯器替換一些版權、

u010569495 2020-07-07 02:47:43

不会Docker和K8S，同事被移出公司群聊

雲棲號資訊：【點擊查看更多行業資訊】在這裏您可以找到不同行業的第一手的上雲資訊，還在等什麼，快來！ 2010 年，幾個搞 IT 的年輕人，在美國舊金山成立了一家名叫“dotCloud”的公司。 這家公司主要提供基於 PaaS 的雲計算技

雲棲號資訊小編 2020-07-22 12:25:52

Krustlet：使用 Rust 开发的 kubelet，用于运行 WASM 工作负载

雲棲號資訊：【點擊查看更多行業資訊】在這裏您可以找到不同行業的第一手的上雲資訊，還在等什麼，快來！ Deis Labs 發佈了 Krustlet ，一個用 Rust 開發的開源 Kubernetes kubelet，用於在 Kubernet

雲棲號資訊小哥 2020-07-15 14:01:52

容器入门（1） - 安装和使用Docker Registry

文章目錄部署拓撲準備宿主機創建SSL證書和用戶認證文件配置遠程客戶宿主機環境安裝Docker Registry基於容器安裝運行基於軟件包安裝運行容器操作連通性驗證本地驗證遠程驗證鏡像推拉Docker Registry操作查看Doc

dawnsky.liu 2020-07-07 09:28:53

容器入门（3） - skopeo

Skopeo是用來對Registry的Images操作的，主要功能包括： 查看Registry上的Image信息。 $ skopeo inspect docker://registry.domain.com:5000/busy

dawnsky.liu 2020-07-07 09:28:52

容器入门（2） - podman

文章目錄安裝Podman環境客戶端配置文件登錄Registry查詢鏡像pull/push 鏡像訪問非安全的Registry查看鏡像分層目錄保存鏡像-恢復鏡像運行容器，並觀察對應進程和使用的存儲查看容器日誌查看容器運行實時狀態運行停

dawnsky.liu 2020-07-07 09:28:52