2008年10月24日星期五

Random Thoughts on the Passing Scene #90

Nick Hodges| Nick Hodges |16:10:55

Up to #90 already.  Anyone got any ideas for a special event for when I hit RTotPS #100? Next week at PDC, I’ll be doing my best to keep up on Twitter.  So if you want to start following me, you can.  We’ll see how it g...

一句话为当前窗口客户区捉图: GetFormImage

万一| 万一的 Delphi 博客 |14:42:00

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TF...

如何过XP的防火墙而不被拦截

荣植华| 荣植华的专栏-delphi |13:18:00

procedure TForm1.Button1Click(Sender: TObject);var?? FwMgr,Profile,FwApp: variant;begin?? FwMgr := CreateOLEObject('HNetCfg.FwMgr');?? Profile := FwMgr.LocalPolicy.CurrentProfile;?? FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication');?? Fw...

iPod Data Salvage Software

delphi3000| delphi3000.com |12:00:00

Apple iPod music salvage utility recovers all erased, misplaced music files, audio, video albums, mp3, mp4, aif, m4p, m4a, m4b, m4v, aac, wav, mpg, aac as well as photos, pictures and images etc from all iPods. iPod mp3 file recovery software retr...

Outlook Mail Password Rescue Tool

delphi3000| delphi3000.com |12:00:00

how to recover forgotten password for outlook and outlook express email accounts

用Schema来决定CSV文件的字段类型

rarnu| 橙子的Delphi技术专区-delphi |11:16:00

在说这一问题之前，先看一下以下的CSV文件内容：001,a,1,002,b,2,003,c,3,004,d,4,这是一个很简单的文件，前两个字段是字符串，最后一个是数字我们用ADO访问时，连接如下：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\;Extended Properties="text;HDR=No;F...

Network Traffic Monitor - Delphi Source Included

About.com| About.com Delphi Programming |04:00:25

IP Programming :: Network Traffic Monitor is a network analytic tool that examines local area network usage and provides a display of upload and download statistics. The main purpose of...

2008年10月23日星期四

建立快捷方式的函数: CreateShortcut - 非常实用、特别方便

万一| 万一的 Delphi 博客 |21:05:00

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; ...

Delphi.NET初探

rarnu| 橙子的Delphi技术专区-delphi |20:50:00

原本也是没想过要用Delphi.NET开发Win Form，就当是偶尔尝尝鲜吧，相信我碰到的问题很多人也碰到了，在此仅当是一个小小的总结。一、CLR内事件绑定用惯了Delphi，想当然的会写 obj.OnEvent := method;这个写法在CLR下行不通，写法需要修改，如下：Include(obj.OnEven...

BringToFront、SendToBack - 控件置前与置后

万一| 万一的 Delphi 博客 |18:29:00

本例效果图:代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; ...

Controls 属性与继承 TShape 类的小练习

万一| 万一的 Delphi 博客 |14:50:00

本例效果图:代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TMyShape = class(TShape) protected procedure CMMouseenter(var Message: TMess...