-
Visual C# 调用声音控制对话框
Visual C# 调用声音控制对话框，在windows Xp下表现挺好，在Windows7有些问题，调用的面板并不会显示出来，这是为何呢？windows调用 声音对话框的实例 ，基于Delphi7源码实现。
- 2022-03-10 20:40:03下载
- 积分：1
-
Delphi 7.0 显示密码编辑框中的密码
Delphi 7.0 源代码示例演示：显示密码编辑框中的密码，也就是获取Edit组件中的内容，显示给用户，在代码编写时，可参考下边的几行代码：
L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度，并将长度加1
GetMem(Name,L);//为将要得到的名字分配内存
GetWindowText(Edit1.handle,Name,L);//得到名字
label1.Caption:=String(Name);//将得到的名字显示于Label1
FreeMem(Name,0); //释放分配的内存
完整的源代码请下载。
- 2022-04-06 19:23:17下载
- 积分：1
-
Delphi7利用鼠标绘制矩形焦点的源码
本源代码主要演示Delphi7利用鼠标绘制矩形焦点，画出虚线框矩形，按住鼠标左键抖动矩形区域，即可显示虚线矩形框，可应用于需要拖动选择对象时作为选区使用，在Delphi中，这个功能使用Canvas实现：
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsDraw then
begin
if Count >1 then
DrawFocusRect(Canvas.Handle,FocuRect);
FocuRect.Right := X;
FocuRect.Bottom := Y;
DrawFocusRect(Canvas.Handle,FocuRect);
Inc(Count);
IsEndDraw := True;
end;
end;
- 2023-02-14 21:35:04下载
- 积分：1
-
Delphi IntToHex函数用法举例
关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。
procedure TForm1.Button1Click(Sender: TObject);
var
S:integer;
begin
S:=2147483647;
showmessage(inttoHex(s,8));
showmessage(inttoHex(s,10));
showmessage(inttoHex(s,16));
showmessage(inttoHex(s,32));
end;
- 2022-09-07 01:20:03下载
- 积分：1
-
Delphi 使用PSAPI.dll枚举Window7 进程及页面内存信息
Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示，其实在Window7环境下同样也可枚举到进程及页面内存信息，可以列举所有正在运行的进程，正在运行的所有进程，鼠标双击有进程的详细信息，可以得到某一进程的模块、页面等信息，以及内存映射的文件名。
如果列举进程出错，请确认是否安装了PSAPI.DLL。
本程序除了列举进程外，还可列举设备信息。运行效果请参见截图所示。
- 2022-07-02 19:53:17下载
- 积分：1
-
Delphi 使用tfilestream方式复制文件
Delphi 使用tfilestream方式复制文件，你可参考本源码，学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法，本实例复制文件，是通过读取文件流，保存文件流的方式复制，并不是使用命令复制文件。
- 2022-01-21 03:12:02下载
- 积分：1
-
Delphi实现流程图绘制程序附有源码
Delphi实现流程图绘制程序附有源码，看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件，功能比较强大，运行界面如下图所示。生成的流程图可编辑文件扩展名为pf，本软件将自动识别。
- 2022-05-25 01:00:17下载
- 积分：1
-
Delphi使用AES算法加密源码下载
整合网上下载到的资源（ElAES.pas,AES.pas），在Delphi7下编译后，测试能用
- 2023-07-07 06:10:03下载
- 积分：1
-
Delphi7 向XML中添加RTTI信息
Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：
procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent);
var
nProps, i: Integer;
PropList: PPropList;
Value: Variant;
newNode: IXmlNode;
begin
nProps := GetTypeData (Comp.ClassInfo)^.PropCount;
GetMem (PropList, nProps * SizeOf(Pointer));
try
GetPropInfos (Comp.ClassInfo, PropList);
for i := 0 to nProps - 1 do
begin
Value := GetPropValue (Comp, PropList [i].Name);
NewNode := iNode.AddChild(PropList [i].Name);
NewNode.Text := Value;
if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then
if TObject (Integer(Value)) is TComponent then
NewNode.Text := TComponent (Integer(Value)).Name
else
ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent);
end;
finally
FreeMem (PropList);
end;
end;
- 2022-01-26 03:00:57下载
- 积分：1
-
Delphi 7.0 在局域网内发消息
Delphi 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。
局域网内发消息核心代码：
procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string);
var
ms:PWideChar;
begin
ms:=PWIDEChar(WideString(msg));
NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2);
end;
procedure TFrmSendMessage.BtnSendClick(Sender: TObject);
begin
Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text);
end;
- 2022-04-01 17:32:07下载
- 积分：1
