- 博客(14)
- 资源 (30)
- 收藏
- 关注
原创 Delphi ListView的用法(常用技巧)
<br /><br />//增加<br /> i := ListView1.Items.Count;<br /> with ListView1 do<br /> begin<br /> ListItem:=Items.Add;<br /> ListItem.Caption:= IntToStr(i);<br /> ListItem.SubItems.Add('第 '+IntToStr(i)+' 行');<br /> ListItem.SubItems.Add('第
2010-07-11 01:13:00 704
原创 Delphi ListView基本用法大全
Delphi ListView基本用法大全<br /><br />//增加项或列(字段)<br />ListView1.Clear;<br />ListView1.Columns.Clear;<br />ListView1.Columns.Add;<br />ListView1.
2010-07-11 00:54:00 773
原创 ShellExecute
基本简介 有几个API函数都可以实现这些功能,但是在大多数情况下ShellExecute是更多的被使用的,同时它并不是太复杂。 [编辑本段]原型及参数含义 ShellExecute函数原型及参数含义如下: ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数;
2010-07-10 14:42:00 568
原创 遍历文件
{-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹作者: SWGWEB日期: 2007.11.25参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringList----------------------------
2010-07-08 16:19:00 423
原创 遍历文件
procedure FindFiles(sPath, sFileExt: string; AStrs: TStrings; SubDir: Boolean;ShowDir: Boolean);var FSrchRec{, DSrchRec}: TSearchRec; nFindResult: Integer; nSearchMode: Integer;begin nSearchMode := faAnyFile + faDirectory; nFindResult := FindFirst(
2010-07-06 23:30:00 407
原创 DelDirectory
function DelDirectory(const Source:string): boolean; var fo: TSHFILEOPSTRUCT; begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(sour
2010-07-06 22:40:00 521
原创 SHFileOperation
<br />Windows95/NT中提供了一个API函数SHFileOperation(),它只有一个指向SHFILEOPSTRUCT结构的参数。SHFileOperation()函数的原形如下: <br /><br />---- WIN SHELL API int WINAPI SHFileOperation (LPSHFILEOPSTRUCT lpFIleOp); <br /><br />---- LPSHFILEOPSTRUCT结构包含有进行文件操作的各种信息,其具体的结构如下: <br /><br
2010-07-06 22:36:00 1107
原创 DeletePath
<br />function DeletePath(mDirName: string): Boolean; { 返回删除指定目录是否成功 }<br />var<br /> vSearchRec: TSearchRec;<br /> vPathName: string;<br /> K: Integer;<br />begin<br /> Result := True;<br /> vPathName := mDirName + '/*.*';<br /> K := FindFirst(vPath
2010-07-06 21:27:00 565
原创 进度复制文件
var getStream, setStream: TFileStream; num, n: Integer; buf: PByte; BufSize, block: Integer;begin if not FileExists(edit1.text) then begin ShowMessage('源文件不存在!'); Exit; end; getStream := TFileStream.Create(edit
2010-07-04 17:28:00 558
原创 Wait
//////////////////////////////////// //// Wait //// 2010.7.2 //// Haiou327 //// ////////////////////////////////////prog
2010-07-02 17:31:00 474
原创 AnsiToUtf8
//////////////////////////////////// //// AnsiToUtf8 //// 2010.7.1 //// QQ:52688226 //// ////////////////////////////////////progr
2010-07-01 22:56:00 1154
原创 TimedShutDown
<br />program shutdown;{$APPTYPE CONSOLE}uses windows;var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of char; sComputerName: string; lpSize: DWORD;function TimedShutDown(Computer: string; Msg: string; //获取关机特权
2010-07-01 15:16:00 367
原创 ShutDown
<br />uses windows;const EWX_LOGOFF = 0; //重新启动计算机并切换到MS-DOS方式 EWX_SHUTDOWN = 1; //关闭计算机 - EWX_REBOOT = 2; //重新启动计算机 - EWX_FORCE = 4; //关闭所有程序并以其他用户身份登录var hToken: THandle; tkp: TOKEN_PRIVILEGES; ReturnLength: DWord;
2010-07-01 13:52:00 455
原创 注销 关机 重启
1.WIN 9X实现 注销 关机 重启------------------------------------------------------------------------------------------1.--定义常数const EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式 EWX_SHUTDOWN=1;//关闭计算机 EWX_REBOOT=2; //重新启动计算机 EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 2.--执行ExitWin
2010-07-01 13:43:00 508
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关注的人