- 博客(7)
- 资源 (30)
- 收藏
- 关注
原创 Delphi中闪动应用程序在任务栏的标题
<br />procedure TForm1.tmr1Timer(Sender: TObject);const{$J+} animatedTitle: string = ' Delphi ';{$J-}var cnt: Integer;begin Application.Title := animatedTitle; for cnt := 1 to (Length(animatedTitle) - 1) do animatedTitle[
2011-03-31 21:27:00 1992
原创 DeleteSelf
<br />usesshlobj,shellapi;function Suicide: Boolean;var sei: TSHELLEXECUTEINFO; szModule: PChar; szComspec: PChar; szParams: PChar;begin szModule := AllocMem(MAX_PATH); szComspec := AllocMem(MAX_PATH); szParams := AllocMem(MAX_
2011-03-31 21:12:00 1020
原创 Delphi的几种类型转换
<br />Delphi的几种类型转换 unit Support;interfacetype dword=longword;function WordToStr(Value: word): string;function DwordToStr(Value: dword): string;function StrToWord(Value: string): word;function StrToDword(Value: string): dword;pro
2011-03-31 20:59:00 10237
原创 目录拷贝、删除和搬移的操作
<br />目录拷贝、删除和搬移的操作 1、拷贝目录 为了能拷贝目录下带有子目录的情况,先定义一个辅助的拷贝函数,它是递归执行的,直到把目录下的所有文件和子目录都拷贝完。 1.1拷贝目录的递归辅助函数:DoCopyDirfunction DoCopyDir(sDirName:String;sToDirName:String):Boolean;varhFindFile:Cardinal;t,tfile:String;sCurDir:String[2
2011-03-31 20:25:00 749
原创 SetWindowPos窗口置顶
Beep; SetWindowPos(self.Handle, Hwnd_Topmost, 0, 0, 0, 0, (SWP_NOMOVE or SWP_NOSIZE)); ShowMessage('完成'); SetWindowPos(self.Handle, Hwnd_notopmost, 0, 0, 0, 0, (SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE));
2011-03-22 20:42:00 2015
原创 Textout
<br />varDH:HDC;TheT:string;begin //DoLoop; DH:=GetDC(0); TheT:='逗你玩!'; setBkmode(DH,TRANSPARENT); SetTextColor(DH,RGB(255,0,0)); Textout(DH,screen.Width -280 ,550,pchar(TheT),35);end;
2011-03-22 20:05:00 546
原创 ParamStr
<br />program Param;{$APPTYPE CONSOLE}uses SysUtils;type pr = 0..3;const ps: array[pr] of string = ('/c', '/j', '/u', '/h'); pt: array[pr] of string = ('中国', '小日本', '美国', '香港');var pf: array[pr] of boolean; i, p: LongInt; f:
2011-03-21 21:51:00 749
TMS Component Pack 5.7.1.0 Full Source 安装版
2010-10-02
DELPHI全掌握(万一先生的博客)
2009-07-05
PASCAL精要(编程技巧)
2009-07-05
API函数的中文帮助文件
2009-07-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人