加载中
用WebBrowser实现HTML界面的应用和交互

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, S...

2016/11/11 12:20
1.2K
设置开机自启动函数

引入 Registry procedure SetAutoRun(ok: boolean); var Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try ...

2016/11/11 12:20
22
判断windows进程是否存在

判断进程是否存在,存在返回true,不存在返回false function IsTaskRunning(TaskName:string):Boolean; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapShotHandle: THandl...

2016/11/11 12:20
1.4K
判断文件是否被占用

判断文件FileName是否正在被打开/使用,如果被占用返回true,否则返回false function IsFileInUse(const FileName: string): boolean; var HFileRes: HFILE; begin if not FileExists(FileN...

2016/11/11 12:20
499
根据文件路径获取剩余磁盘空间

function GetFreeSize(filePath:String):Int64; var FreeBytesAvailableToCaller : TLargeInteger; FreeSize : TLargeInteger; TotalSize : TLargeInteger; Drive : string; begin ...

2016/11/11 12:20
31
delphi中exit,abort,break,continue,halt,runerro 的区别

delphi中表示跳出的有break,continue, exit,abort, halt, runerror。 1、break 强制退出循环(只能放在循环中),用于从For语句,while语句或repeat语句中强制退出。 2、continue 用于从F...

2016/11/11 12:20
40
四舍五入函数

引入math单元 function RoundEx(Value: Extended; RoundMode: TFPURoundingMode = rmUp): Int64; var RM: TFPURoundingMode; begin RM := GetRoundMode; try SetRoundMode(RoundMo...

2016/11/11 12:19
14
delphi Winsock非阻塞模式详解

Winsockt的TClientSocket设置ClientType的属性为ctNonBlocking.则通讯模式为非阻塞模式。 ctBlocking为阻塞模式,这里说一下阻塞与非阻塞的一些区别。 ctBlocking模式当客户端请求数据后,线...

2016/11/11 12:19
64
delphi 运行外部程序函数winexec WinExecAndWait32 CreateProcess

转载地址:http://blog.sina.com.cn/s/blog_7fdf737901013vgh.html 运行外部程序但不需等待winexec 运行外部程序并等待外部程序结束才返回结果的函数 function WinExecAndWait32(FileName: ...

2016/11/11 12:19
257
Delphi获取显卡和系统各种音频设备的代码实现

转载 http://www.codefans.net/articles/396.shtml Delphi获取不同的声音播放设备,这些设备包括:Aux设备、Wave播放设备、录音设备、MIDI音乐播放、MIDI音乐输入设备、游戏杆设备、混合设备...

2016/11/11 12:19
488
获取系统临时目录

uses Winapi.Windows; // 根据系统的环境变量获取系统临时目录 function GetWinTempPath: string; var tmpdir: array [0 .. 255] of char; begin GetTempPath(255,@tmpdir); Result :=StrPas...

2016/11/11 12:19
195
Delphi中多线程用Synchronize实现VCL数据同步显示

概述: VCL实现同步的另一种方法就是调用线程类的Synchronize的过程,此过程需要一个无参数的procedure,故在此procedure中无法传递参数值,但可以通过类的成员来实现。在类的Execute中只须调...

2016/11/11 12:19
1.9K
TThread深入分析

Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是 对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完...

2016/11/11 12:19
46
根据文件路径检测文件大小并检测是否正在被占用

function CheckFileSize(sPath: string): Int64; var FilePath: AnsiString; FStream:TFileStream; bOpen:Boolean; //判断文件FileName是否正在被打开/使用 function IsFileInUse...

2016/11/11 12:19
84
基于Delphi API写的UDP通讯类

转载地址:http://www.codefans.net/articles/159.shtml 基于Delphi API写的UDP通讯类,可以广播和单播,类作者:王彦鹏。这个类是作者2007年的时候写的,代码里基本没什么注释,有需要的朋友...

2016/11/11 12:19
1.6K
删除文件夹中包含的子文件夹及文件

//删除目录和目录下得所有文件和文件夹 procedure DeleteDir(sDirectory, DotDelDir: String); var sr: TSearchRec; sPath,sFile: String; begin if rightstr(sDirectory, 1) <> '\' then sD...

2016/11/11 12:19
37
delphi char与string比较

procedure TForm1.CompareCharToString(chstr: Char; str: string); var aa: array[0..1]of AnsiChar; str1: string; begin chstr := 'a'; str := 'a'; aa[0] := AnsiChar(chstr); str1 := S...

2016/11/11 12:19
547
Windows消息机制要点

1. 窗口过程 每个窗口会有一个称为窗口过程的回调函数(WndProc),它带有四个参数,分别为:窗口句柄(Window Handle),消息ID(Message ID),和两个消息参数(wParam, lParam), 当窗口收到消息时系...

2016/11/11 12:19
3

没有更多内容

加载失败,请刷新页面

没有更多内容

返回顶部
顶部