dll 调用方法有 静态调用和动态调用两种方法
用到的dll为上篇文章所编写的dll.
总结如下：
Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
TForm1 = Class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Procedure Button1Click(Sender: TObject);
Procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
End;
Var
Form1: TForm1;
Implementation
Function Min(X, Y: Integer): Integer; external 'Project1.dll';
Function Max(X, Y: Integer): Integer; external 'Project1.dll';
procedure SynAPP(App:THandle);stdcall;external 'Project1.dll'; //这里的
procedure ShowForm;stdcall;external 'Project1.d ......
delphi 注册 com 对象的方法
procedure TForm1.Button3Click(Sender: TObject);
var
Sd: TSecurityDescriptor;
begin
InitializeSecurityDescriptor(@Sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@Sd, true, Nil, false);
RegSetPrivilege(HKEY_LOCAL_MACHINE, 'testcom', @Sd, false);
RegSetPrivilege(HKEY_CLASSES_ROOT, 'xmllib.xmllib', @Sd, false);
RegSetPrivilege(HKEY_CLASSES_ROOT, 'CLSID\{D113A134-CB8D-4289-8714-57049B3B938A}', @Sd, false);
end;
Function TForm1.RegSetPrivilege(AhKey: HKEY; pszSubKey: PChar;
pSD: PSecurityDescriptor; bRecursive: BOOL): BOOL;
Var
bRet: BOOL;
hSubKey: HKEY;
lRetCode: LONGINT;
pszKeyName: pchar;
dwSubKeyCnt: DWORD;
dwMaxSubKey: DWORD;
dwValueCnt: DWORD;
dwMaxValueName: DWORD;
dwMaxValueData: DWORD;
i: DWORD;
Label cleanup;
Begin
bRet := FALSE;
&nb ......
我的Delphi开发经验谈
作者：Icebird
--------
开发环境
--------
Delphi
7是一个很经典的版本，在Win2000/XP下推荐安装Delphi 7来开发软件，在Vista下推荐使用Delphi 2007开发软件。安装好Delphi
7后，应立即安装Delphi 7 Update Pack 1，Delphi
2007则建议尽量安装最新的版本。工欲善其事，必先利其器，为了提升开发效率，为了能更加得心应手的处理接下来的开发工作，我们有必要安装一些有用的开发辅助工具（Delphi将此类插件以Expert命名）。首先推荐的是DelForExp这个源代码格式化工具，集成在IDE里，使用相当方便。即使我所写代码的风格非常好，但是还是免不了阅读某些人写的乱七八糟的代码，这时DelForExp就能派上用场了，1秒钟就能让代码能看上去顺眼多了。GExperts曾经是一个非常出名的工具，可现在都不怎么更新了，里面有几个功能还是值得一用，比如Grep
Search, Replace Components, Code Proofreader等。强烈推荐安装CnPack IDE
专家包，相信我，它会让你的Delphi更好用。Delphi
7是不支持重构的，因此我还建议安装Castalia，这个工具中某些功能还是很不错的。CodeRush一直都是Delphi下最强大的工具，可是 ......
1、TStringList支持的最大行数是多少？（http://topic.csdn.net/t/20060209/14/4547405.html）
楼主结论：“TStringList的LoadfromFile函数应该只能读取15万行以内的数据，但TStringList和TList的Add函数可以加到几百万行（甚至更多）也不会出错。程序出错的原因应该是Add非法内存指针导致的，正如tanlim(求学者) 所说的。非常感谢！”
“9 楼tanlim（sunsos.net sunsos.cn）回复于 2006-02-09 17:51:13 得分 45
TStringList 它是基于链表数据结构来的。不存在上限问题。
主要是跟计算机内存有关。还有就是所指内存空间是否受保护，以及是否全清空的问题。
采取TStringList来操作类似的文本队列。相信原程序员是出于效率上的考虑，上面大家提到了用数据库来代替的方法。在效率上肯定是要打折扣的。或者在某种原存储文档加密上不灵活。
通常用这种方法的情况（估的），不会采用零星申请分配的方法，而是采用块申请，然后在新建类构造函数中，自己来管理内存的分配情况。这只是个猜测，具体要看你的程序设计情况。
总之，上限问题是肯定不存在的，即使你内存不够，WINDOWS也� ......
http://meidi152.blog.163.com/blog/static/5423302009610103610744/
1. memo控件读取txt
memo1.Lines.LoadfromFile('E:\*\*.txt');
2.
Procedure NewTxt(FileName:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(F, FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建一个新的文件并命名为 ek.txt}
Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
Closefile(F); {关闭文件 F}
End;
Procedure OpenTxt(FileName:String);
Var
F : Textfile;
Begin
AssignFile(F,FileName); {将文件名与变量 F 关联}
Append(F); {以编辑方式打开文件 F }
Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
Closefile(F); {关闭文件 F}
End;
Procedure ReadTxt(FileName:String);
Var
F : Textfile;
str : String;
Begin
AssignFile(F, FileName); {将文件名与变量 F 关联}
Reset(F); {打开并读取文件 F }
Readln(F, str);
ShowMessage('文件有:' +str + '行。');
Closefile(F); {关闭文件 F}
End;
procedure TForm1.Button1Click(Sender: TObjec ......
Format
type的可能值有下列这些：
(1) d 有符号十进制数
Args必须是有符号整型数。如果在格式化字符串中还加入了["." prec]，则如果Args
的长度如果小于给出的精度数时，在前边填补0；如果大于精度数，按实际长度显示。
Format('(%.3d)', [99]); 结果：'(099)'
(2) u 无符号十进制数
Args必须是无符号整型数。其它特性与d一样。
(3) e 科学技术法
用科学技术法显示数据，形式大致如下：'-d.ddd...E+ddd'。
Args必须是一个浮点数。如果是一个负数，则在最前面显示一个符号；在小数点前面
总是显示一位数字；包括小数点前面的数字在内，数字的个数由["." prec]来确定，
如果没有指定["." prec]，则默认为15位精度。如果实际的数字长度超出了指定的
&nb ......
最新文章 : delphi