鸟儿博客
天行健，君子以自强不息~ 地势坤，君子以厚德载物~
delphi之伪造referer下载文件
发布:nobird22 Feb 2009
今天去了某经常去下载文件的地方，居然不能通过迅雷下载，简单的测试了下发现是检查了referer，所以花点时间做了下面的这个东西。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBa分类: Delphi
delphi之屏幕取色
发布:nobird20 Jan 2009
上个预览图先：
代码：
[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
代码：
[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
分类: Delphi
建立快捷方式的函数
发布:nobird15 Jan 2009
很不错的例子，很多时候都能用到。
[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
分类: Delphi
delphi之模拟点击网页中的按钮
发布:nobird14 Jan 2009
类似的可以看这篇文章：[delphi实现自动填写表单和调用网页上的函数]
[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
[code=delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
分类: Delphi
Delphi的关键字[整理]
发布:nobird14 Jan 2009
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1.Text := IntToStr(StrLen);
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1.Text := IntToStr(StrLen);
分类: Delphi
.clear
