- 博客(20)
- 收藏
- 关注
RSS订阅转载 delphi 发送下载进度到前台的多线程下载
unit uTestThread;interfaceuses Classes, Windows, SysUtils, IdHTTP, IdComponent, Math, Messages;const WM_DownProgres = WM_USER + 1001;type TTestThread = class(TThread) private FIDHt...
2012-12-02 15:58:00
178
转载 delphi idftp idhttp 多线程多进度条
idftp 上传 多个文件同时上传，支持断点续传，多进度条。 起初用API做，发现对API了解太少，便改用线程类来处理，代码如下TThread1 = class(TThread)private fCount, tstart, tlast: integer; tURL, tFile, temFileName,temLocalFile: st...
2012-12-02 15:54:00
515
转载 更新自身文件
{//procedure PatchSelf(aFileName:string);var F:TextFile;begin AssignFile(F,'PatchSelf.bat'); Rewrite(F); WriteLn(F,'ping -n 2 127.1 >nul 2>nul');//延时 2秒 WriteLn(F,'ren '+ExtractFile...
2012-11-29 21:56:00
139
转载 API函数MoveFileEx使用详解(delphi) .
{ 函数原型 }function MoveFileEx( lpExistingFileName: PChar; // 来源文件名，指向一个以零结尾的字符串的指针。 lpNewFileName: PChar; // 目标文件名，指向一个以零结尾的字符串的指针。 dwFlags: DWORD // 移动标记，见定义 ): BOOL; std...
2012-11-29 19:21:00
625
转载 用SQL语句创建Access表
---------------------------------------------------------------------------- 类型名称 TYPE 备注----------------------------------------------------------------------------...
2012-11-29 02:54:00
365
转载 调用键盘和鼠标的范例
procedure TUnionExpress.ReadUnionSet(sSavePath , sReadSetupPath :string); var x :TRect; p :TPoint; UnionEdit :HWND; begin GetWindowRect(SelfUser.UnionToolHw, x); //获取当前窗体的...
2012-11-27 21:32:00
106
转载 EXE资源包使用
procedure TUnionExpress.ExtractExeRec(restype,resname,resnewname:string); var res :TResourceStream; begin res := TResourceStream.Create(HInstance , resname , PChar(restype)); res.SaveT...
2012-11-27 21:31:00
95
转载 delphi 拖放操作
procedure WMDropFiles(var msg :TMessage); message WM_DropFiles;procedureTUnionExpress.WMDropFiles(var msg :TMessage); var buffer: array[0..1024] of Char; begin inherited; buffer[...
2012-11-27 21:26:00
169
转载 【收藏】default.rdp配置
存储在 Default.rdp 文件中的设置默认情况下，将在“我的文档”文件夹中创建 Default.rdp 文件。以下 RDP 设置存储在 Desktop.rdp 文件中：desktopwidth:i此设置对应于您在远程桌面连接“选项”中的“显示”选项卡上选择的桌面宽度。注意：基于 Microsoft Windows CE 的设备...
2012-03-19 19:42:00
968
转载 system32下面的mstsc.exe。
今天研究了一下windows远程桌面客户端，就是system32下面的mstsc.exe。一向讲究易用性的微软在mstsc.exe中提供了一个将主机地址，用户名、密码等连接所需信息保存到缀名为.rdp的文件中，以便将来快速打开的功能 。现在我想要做的是，如何自己生成这个.rdp文件，让我自己的程序更方便地调用mstsc.exe？首先需要做的就是分析.rdp文件的格式。用文...
2012-03-08 13:20:00
296
转载 Mysql日期和时间函数大全
对于每个类型拥有的值范围以及并且指定日期何时间值的有效格式的描述见7.3.6 日期和时间类型。这里是一个使用日期函数的例子。下面的查询选择了所有记录，其date_col的值是在最后30天以内：mysql> Select something FROM table Where TO_DAYS(NOW()) - TO_DAYS(date_col) select DAYOFWEEK...
2011-12-25 03:05:00
90
转载 TSHFileOpStruct
把一个文件从一个目录拷贝到另一个目录标 题: Re: 把一个文件从一个目录拷贝到另一个目录发信站: BBS 水木清华站 (Tue Mar 27 14:38:58 2001)我来贴个shellAPI解决这类问题的通用办法吧3.1 整个目录的复制、移动、删除实例说明Delphi的用户都知道,删除目录可用RemoveDir函数,但此函数只能删除空目...
2011-12-09 16:53:00
335
转载 SQL语句的添加、删除、修改多种方法
SQL语句的添加、删除、修改虽然有如下很多种方法，但在使用过程中还是不够用，不知是否有高手把更多灵活的使用方法贡献出来？添加、删除、修改使用db.Execute(Sql)命令执行操作╔----------------╗☆ 数据记录筛选 ☆╚----------------╝注意：单双引号的用法可能有误(没有测式)Sql = "Select Distinct...
2011-11-28 11:50:00
186
转载 Delphi 实现传送文件
1.建立两个工程Server及Client分别放TServerSocket及TClientSocket控件,Demo,Edit控件等。2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,ClientType为ctNonBlocking表示异步读写信息。注意ClientType和ServerT...
2011-11-26 15:33:00
822
转载 Vclzip显示压缩进度
progressbar1.Max:=myzip.ZipSize; procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer); begin progressbar1.Position:=percent; end; procedure TForm1.myzipTotalPercentDone(S...
2011-11-26 07:08:00
239
转载 VCLZip 压缩整个文件夹(包括子文件夹)
function ZipFile(srcFile, dstFile: string):Boolean; //压缩单个文件 var VCLZip: TVCLZip; begin Result := False; VCLZip := TVCLZip.create(nil); if srcFile[Length(srcFile)] <&g...
2011-11-26 06:36:00
331
转载 WINDOW API
SendMessage(Handle,WM_VSo,Line_donwn)转载于:https://www.cnblogs.com/11wf/archive/2011/11/26/2264021.html
2011-11-26 02:29:00
84
转载 利用Delphi编写Socket通信程序
笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是...
2011-11-24 22:43:00
105
转载 Delphi 操作Ini文件
Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件一．INI文件的结构[小节名]ini文件 关键字1＝值1 关键子2＝值2INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。二、定...
2011-11-17 17:38:00
69
转载 打开外部程序或文件 WinApi
注意 :1.USES中间要加 SHELLAPI2.路径需要用 Pchar()转换一下, 例如: ShellExecute(Handle, 'open', 'notepad.exe', PChar(SelPath), nil, SW_SHOWNORMAL);WinAPI: ShellExecute - 打开外部程序或文件ShellExecute( hWnd: ...
2011-11-14 10:35:00
425
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人