Delphi操作注册表的一般步骤
Delphi操作注册表步骤如下:
-------------------------------------
1)在Uses中添加Registry单元;
2)声明TRegistry对象;
3)创建TRegistry对象;
4)指定根键;
----------------try------------------
5)打开需要操作的主键;
6)读写操作;
7)保存并关闭主键;
--------------finally----------------
8)释放TRegistry对象;
---------------end------------------
==========================================================
Uses Registry; //添加Registry单元;
var
MyReg: TRegistry; //声明TRegistry对象;
begin
MyReg := TRegistry.Create; //创建TRegistry对象;
try
MyReg.RootKey := HKEY_LOCAL_MACHINE; //指定根键;
if MyReg.OpenKey('主键名', true) then //打开需要操作的主键;
begin
MyReg.ReadType(---); //读注册表文件
MyReg.WriteType(---); //写注册表文件
end;
MyReg.CloseKey; //保存并关闭主键;
finally
MyReg.Free; //释放TRegistry对象;
end;
end;
==========================================================
function OpenKey(const Key:String; CanCreate:Boolean):Boolean;
//第二个参数指明,如果需要打开的主键不存在时是否创建该主键
function CreateKey(const Key:String):Boolean;
//此方法用于创建主键,实际上并不常用
function KeyExists(const Key:String):Boolean;
//判断主键是否存在
(***对于字符串类型的操作函数***)
function ReadString(const Name: String):String;
procedure WriteString(const Name, Value: String);
//对于其它数据类型的注册表读写
相关文档:
淘宝开放平台的开发例子大多都是c#,php,java等,缺少Pascal的例子。
现用delphi写了一个示例,
关键点是签名的生成,签名需按key字母顺序排序,并去掉等于号后首尾相连。
关键代码:
memstr:= TMemoryStream.Create;
//用授权码获取 session
IdHTTP1.Get('http://container.api.tbsandbox.com/c ......
在sql server 的northwide 中建立主表
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
首先,要注意以下设置
1.要注意报从表qrydetail设置,批保存开式. 即.locktype= batc ......
大家在软件开发时经常会遇到这样的情况,在不同的开发环境中为实现一些功能相同的过程,由于开发所使用的设计语言不同,因而不得不编写许多类似的代码,甚至有时要在同一个开发环境不同项目中重写代码,这就造成了很大的资源浪费。动态链接库能较好的解决这个问题,重复利用代码将大大提高了开发效率。一般,用户在应用程序 ......
一) 使用动态创建的方法
首先创建 Excel 对象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application'  ......
毕竟Win32程序的开发,Delphi还是有顽强的生命力的。
操作步骤如下:
1.建立 res 文件
建立一个文本文件,名字可以自己起,我这里叫:UAC.manifest,内容:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
......