自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 Delphi中闪动应用程序在任务栏的标题

<br />procedure TForm1.tmr1Timer(Sender: TObject); const {$J+} animatedTitle: string = ' Delphi '; {$J-} var cnt: Integer; b...

2011-03-31 21:27:00

阅读数 1666

评论数 0

原创 DeleteSelf

<br />uses shlobj,shellapi; function Suicide: Boolean; var sei: TSHELLEXECUTEINFO; szModule: PChar; szComspec: PChar; szParams: ...

2011-03-31 21:12:00

阅读数 648

评论数 0

原创 Delphi的几种类型转换

<br />Delphi的几种类型转换 unit Support; interface type dword=longword; function WordToStr(Value: word): string; function DwordToStr(Va...

2011-03-31 20:59:00

阅读数 9493

评论数 0

原创 目录拷贝、删除和搬移的操作

<br />目录拷贝、删除和搬移的操作 1、拷贝目录    为了能拷贝目录下带有子目录的情况,先定义一个辅助的拷贝函数,它是递归执行的,直到把目录下的所有文件和子目录都拷贝完。    1.1拷贝目录的递归辅助函数:DoCopyDir function DoC...

2011-03-31 20:25:00

阅读数 595

评论数 0

原创 SetWindowPos窗口置顶

Beep; SetWindowPos(self.Handle, Hwnd_Topmost, 0, 0, 0, 0, (SWP_NOMOVE or SWP_NOSIZE)); ShowMessage('完成'); SetWindowPos(self.Handle,...

2011-03-22 20:42:00

阅读数 1295

评论数 0

原创 Textout

<br />var DH:HDC; TheT:string; begin //DoLoop; DH:=GetDC(0); TheT:='逗你玩!'; setBkmode(DH,TRANSPARENT); SetTextColor(DH...

2011-03-22 20:05:00

阅读数 437

评论数 0

原创 ParamStr

<br />program Param; {$APPTYPE CONSOLE} uses SysUtils; type pr = 0..3; const ps: array[pr] of string = ('/c', '/j', '/u', '/h'); ...

2011-03-21 21:51:00

阅读数 655

评论数 0

提示
确定要删除当前文章?
取消 删除