2009年3月8日 星期日

获取优盘序列号的实现方法

扬帆| 扬帆Blog - Delphi |23:24:35

Uses Registry;Const  DIGCF_PRESENT = $00000002;  DIGCF_DEVICEINTERFACE = $00000010;  ANYSIZE_ARRAY = 1;  SetupAPI = 'SetupAPI.DLL';Type  HDEVINFO =...

一句话获取本机 IP

万一| 万一的 Delphi 博客 |22:45:00

//添加 TIdIPWatch 控件: IdIPWatch1 procedure TForm1.Button1Click(Sender: TObject); var ip: string; begin ip := IdIPWatch1.LocalIP; ShowMessage(ip); end;--------------------------新闻：分析称Twitter未来可能成为谷歌杀手导航：博客园首页 &n...

一句话判断网络是否联通

万一| 万一的 Delphi 博客 |22:39:00

uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end;--------------------------新闻：分析称Twitter未来可能成为谷歌杀手导航：博客园首页  知识库 &n...

监视U盘的状态

rarnu| 橙子的Delphi技术专区-delphi |14:55:00

其实系统中的任何事件都是有消息的，U盘的插拨也不例外，让程序去接收这些消息就能知道U盘的状态此处我写了一个Demo程序，用来监视U盘插上或拨下。主要的问题就在如何去接收消息，以及接收什么消息。在DBT单元中，封装了与驱动有关的消息及API，我们只需要稍做研究，...

BCS Update .NET Source Code

CodeGear| CodeGear-CodeCentral Delphi |06:15:20

This application allows the technician to change all references in a .NET application from a local environment domain to a production domain. Updates are made to master pages, active server pages and code behind Pascal files.Within seconds the .NE...