delphi 调用系统dll文件
2010-02-26 15:04
471 查看
netmessagebuffersend示例 |
[align=center]作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站[/align] |
- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; function ToUnicode(str:string;dest:PWideChar):integer; function SendMsg(Toh,From,Msg:string):integer; function NetMessageBufferSend(servername:PWideChar; MsgName:PWideChar; FromName:PWideChar; Buf: PWideChar; var BufLen:integer):integer;cdecl; type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function NetMessageBufferSend; external 'netapi32.dll' name 'NetMessageBufferSend'; function ToUnicode(str:string;dest:PWideChar):integer; var len:integer; begin StringToWideChar(str,dest,len); Result:=len; end; function SendMsg(Toh,From,Msg:string):integer; var ToName :array [0..64] of WideChar; WMsgText:array [0..1000] of WideChar; MsgLen, i:integer; begin for i := 0 to 64 do ToName[i] := #0; ToUnicode(Toh,ToName); for i := 0 to 1000 do WMsgText[i] := #0; ToUnicode(Msg,WMsgText); Result:=NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen); end; procedure TForm1.Button1Click(Sender: TObject); var size:integer; begin sendmsg('192.168.2.16',',192.168.2.16','kjjkkjkjkj'); end; end. |
相关文章推荐
- delphi 基础之三 编写和调用dll文件
- 编程时如果只是调用其它程序打开文件不必引用程序dll,调用系统shell执行更方便
- Delphi调用DLL文件里的窗体
- Silverlight实用窍门系列:22.Silverlight使用WebService调用C++,Delphi编写的DLL文件【实例源码下载】
- Delphi 使用之dll文件生成与调用
- Silverlight实用窍门系列:22.Silverlight使用WebService调用C++,Delphi编写的DLL文件【实例源码下载】
- 列举系统进程及其所调用的模块文件(Delphi XE2)
- 22.Silverlight使用WebService调用C++,Delphi编写的DLL文件
- 列举系统进程及其所调用的模块文件(Delphi XE2)
- c++写dll文件,用delphi stdcall调用报地址000001错误,
- 用java通过调用C++的DLL文件来修改系统分辨率(一)
- JNA调用dll\so文件的路径问题和测试样例。
- 调用系统对话框来查找类型文件
- python 调用系统命令,并将输出重定向,输出其结果至文件或者字符串变量
- ffi模块——node调用动态链接库(.so/.dll文件)
- 从open系统调用的源码看文件的打开过程
- DELPHI 调用系统 ADO 配置窗体 提高软件易用性
- 用php 执行PhantomJS文件,php中使用exec,system等函数调用系统命令
- delphi 获取系统注册的文件图标
- Delphi调用Http接口上传文件