注意点：LPTSTR 对应的是PAnsiChar 或者PWideChar 你问问他的编译选项,要是定义了unicode就是PWideChar 否则是PAnsiChar
这里我是用UNICODE编程的，所以用到的是PWideChar
在VC写的A.dll里添加一个函数为
extern "C" __declspec(dllexport) LPTSTR WINAPI Do(LPTSTR i)
{
return i;
}
在DELPHI调用为
type
TDoFunc=function(str:PWideChar) :PWideChar;stdcall;
var
Th:Thandle;
TDo:TDoFunc;
Tp:TFarProc;
str:PWideChar;
strA,strB:PWideChar;
begin
Th:=LoadLibrary('A.dll'); {装载DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar('_Do@4'));
if Tp<>nil
then begin
TDo:=TDoFunc(Tp);
strA:='bread';
str:=TDo(strA);
ShowMessage(str);
end
else
ShowMessage('没有找到函数');
finally
FreeLibrary(Th); {释放DLL}
end
else
ShowMessage('dll文件没找到');
end;
这样就OK了，(*^__^*) 嘻嘻
好开心哦，又解决了一个问题 ......
1、请列举VCL类库中以TObject为根的对象体系（可以只类主干）
2、请列举VCL数据库方面的核心类
3、Delphi中override和overload的作用分别是什么？
4、Delphi中RTTI是什么？有什么作用？
5、如果一个刚部署的Web服务器不能访问，列举出可能存在的原因？
6、在SQL中左连接时什么?它能实现的数据结果集的特点是什么？
7、请问在Oracle和Mssql中如何只取select语句结果集中的前100条？
Oracle：select top 100 * from tablename
Mssql：select * from tablename where rownum < 101
8、二叉树
type
TBTreeNode = class
Data: string;
Left: TBTreeNode;
Right: TBTreeNode;
end;
function NewNode(const Data: string; Left, Right: TBTreeNode): TBTreeNode;
begin
Result := TBTreeNode.Create;
Result.Data := Data;
Result.Left := Left;
Result.Right := Right;
end;
var Root: TBTreeNode;
procedure Init;
begin
{ 建树：
=
&n ......
作者 : handsome1234
delphi 调用 Excel 宏
我的理解宏就是函数,只要我能调用VBA的函数就算是调用Excel宏.
最近很长时间研究如何用delphi调用Excel宏,找了很多资料，大多是讲如何调用Excel，有好几种方式，但真正讲宏的很少，我现在把我的资料共享一下，省得今后有想了解这方面内容的兄弟姐妹们少走弯路。：
1、加载activex和vbide97单元，其中vbide97具体路径在C:\Program Files\Borland\Delphi5\Ocx\Servers下
{动态加载宏除了的几种方法:V.CodeModule.AddfromString
V.CodeModule.AddfromFile
V.CodeModule.InsertLines
还有一些方法在vbide97.pas里面都可以找到
}
其中V:_VBComponent;类型
我在 UseExcel单元中加了AddExcelMaro这个函数，可以直接调用。
下面是UseExcel.pas 其中是msgboxVBA的一个函数。
unit UseExcel; //将数据导入Excel的单元
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ......
最近金山云安全中心截获了一个很牛X的病毒，金山的反病毒工程师不由叹道YY很久的东西终于有人实现了。
这是一段针对IT民工、尤其是Delphi程序员的病毒，简单的描述该毒行为，就是：它专门感染程序员的电脑，一旦成功，程序员今后写出的任何程序，都是带毒的。
它通过某种方式去查找dephi的安装目录，如果找到dephi这个冤大头，就将邪恶的恶意代码前排插入SysConst.pas文件，这个文件编译的时候，会生成SysConst.dcu，而这个文件会被添加到每个新的dephi工程中，all right！现在，民工们所编写的程序就全部都带毒咯！。
而更可怕的是，根据对染毒系统的分析，我们发现该毒在全球网络中已经传播了多月。已不知道有多少民工的生产工具中了招……
Delphi程序员的悲惨经历——病毒运行过程描述
某年某月某日，dephi噩梦中开始无声无息的执行。病毒的运行以后,首先执行后从注册表"HKEY_LOCAL_MACHINE\Software\Borland\Delphi\"的RootDir值下读取Delphi路径.然后再读取delphi路径下的\source\rtl\sys\SysConst.pas 文件,循环读取直到implementation行.然后跳出循环,下面开始前排插入恶意代码.保存文件后,最后使用MoveFile函数将原来的 SysConst.dcu命名� ......
首先创建一个新的项目，然后向窗体上添加一个TQuery组件和一个TListView组件.
设置TQuery组件的DatabaseName属性设置为DBDEMOS，SQL属性设置为select * from country。然后添加程序初始化代码如下：
with adoquery1 do
begin
close;
ADOConnection1:=TADOConnection.Create(nil);
Adoconnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';
adoquery1.Connection := ADOConnection1;
SQL.Clear;
SQL.add('select * from BOSS');
Open;
end;
for i:=0 to adoquery1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=adoquery1.Fields[i].FieldName;
end;
adoquery1.First;
while not adoquery1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=adoquery1.Fields[0].AsString;
for i:=1 to adoquery1.FieldCount-1 do
begin
TempItem.SubItems.Add(adoquery1.Fields[i].AsString);
end;
adoquer ......
制作圆角矩形的窗体：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
如果不要窗体外框，则使用：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(1,1,width-2,height-2,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
由于第一段代码做出来的窗口，圆角部份会没有边框，使用下面的代码做出边框：
01.procedure TForm1.FormPaint(Sender: TObject);
02.var
03.DC: HDC;
04.Pen: HPen;
05.OldPen: HPen;
06.OldBrush: HBrush;
07.begin
08.DC := GetWindowDC(Handle);
09.Pen := CreatePen(PS_SOLID, 1, clGray);
10.OldPen := SelectObject(DC, Pen); //载入自定义的画笔,保存原画笔
11.OldBrush := SelectObject(DC, GetStockObject(NULL_BRUSH));//载入空画刷,保存原画刷
12.RoundRect(DC, 0, 0, Width-1, Height-1,21,21); //画边框
13.SelectObject(DC,OldBrush);//载入原画刷
14.SelectObject(DC,OldPen); // 载入原画笔
15.Del ......
最新文章 : delphi