唯一的事

摘要： unit uTestThread;interfaceuses Classes, Windows, SysUtils, IdHTTP, IdComponent, Math, Messages;const WM_DownProgres = WM_USER + 1001;type TTestThread = class(TThread) private FIDHttp: TIdHTTP; //封装的idhttp实例 FMaxProgres: Int64; FURL: string; FSavePath: string; FHandle: THandle; { Private declarations 阅读全文

摘要： idftp 上传 多个文件同时上传，支持断点续传，多进度条。 起初用API做，发现对API了解太少，便改用线程类来处理，代码如下TThread1 = class(TThread)private fCount, tstart, tlast: integer; tURL, tFile, temFileName,temLocalFile: string; tResume: Boolean; tStream: TFileStream; temFtp: TIdFTP; sFileName: string; pb: TProgressBar; bstate:Integer; //1,表示准备上传，2表示. 阅读全文

摘要： {//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 '+ExtractFileName(Paramstr(0))+' '+ExtractFileName(Paramstr(0))+'bak'); WriteLn(F,' 阅读全文

摘要： { 函数原型 }function MoveFileEx( lpExistingFileName: PChar; // 来源文件名，指向一个以零结尾的字符串的指针。 lpNewFileName: PChar; // 目标文件名，指向一个以零结尾的字符串的指针。 dwFlags: DWORD // 移动标记，见定义 ): BOOL; stdcall; // 返回执行结果，成果或失败{ dwFlags的值 } MOVEFILE_REPLACE_EXISTING = $00000001; // 覆盖已存在的目标文件，如果来源文件和目标文件指定的是一个目录，则不能使用此标记。 MOVEFILE_COPY 阅读全文

摘要： ---------------------------------------------------------------------------- 类型名称 TYPE 备注---------------------------------------------------------------------------- 自动编号 integer + identity(1,1) 文本 varchar(50) 括号中的数字为文本长度 长整型 integer 整型 short 双精度型 double,float 单精度型 real 字节型 byte 小数 NUMERIC(6,2) 货... 阅读全文

摘要： procedure TUnionExpress.ReadUnionSet(sSavePath , sReadSetupPath :string); var x :TRect; p :TPoint; UnionEdit :HWND; begin GetWindowRect(SelfUser.UnionToolHw, x); //获取当前窗体的位置 // 合区后的数据保存路径 p.X := x.Left + 74; p.Y := x.Top + 396; UnionEdit := WindowFromPoint(p); if UnionEdit <> null then begin S 阅读全文

摘要： procedure TUnionExpress.ExtractExeRec(restype,resname,resnewname:string); var res :TResourceStream; begin res := TResourceStream.Create(HInstance , resname , PChar(restype)); res.SaveToFile(resnewname); res.Free; end;ExtractExeRec('exefile','aexe',SelfUser.SaveRESPath); //打开方法 释放出来te 阅读全文

摘要： procedure WMDropFiles(var msg :TMessage); message WM_DropFiles;procedureTUnionExpress.WMDropFiles(var msg :TMessage); var buffer: array[0..1024] of Char; begin inherited; buffer[0] := #0; DragQueryFile(Msg.WParam, 0, buffer, sizeof(buffer)); //第一个文件 edit1.text = buffer //可以是文件夹 也可以是单个文件 end; 阅读全文

摘要： 存储在 Default.rdp 文件中的设置默认情况下，将在“我的文档”文件夹中创建 Default.rdp 文件。以下 RDP 设置存储在 Desktop.rdp 文件中：desktopwidth:i此设置对应于您在远程桌面连接“选项”中的“显示”选项卡上选择的桌面宽度。注意：基于 Microsoft Windows CE 的设备只支持全屏模式。desktopheight:i此设置对应于您在远程桌面连接“选项”中的“显示”选项卡上选择的桌面高度。注意：基于 Microsoft Windows CE 的设备只支持全屏模式。session bpp:i此设置对应于您在远程桌面连接“选项”中的“显示 阅读全文

摘要： 今天研究了一下windows远程桌面客户端，就是system32下面的mstsc.exe。一向讲究易用性的微软在mstsc.exe中提供了一个将主机地址，用户名、密码等连接所需信息保存到缀名为.rdp的文件中，以便将来快速打开的功能 。现在我想要做的是，如何自己生成这个.rdp文件，让我自己的程序更方便地调用mstsc.exe？首先需要做的就是分析.rdp文件的格式。用文本编辑器打开.rdp文件，可以发现rdp文件的内容以是文本形式的，而且大部分都是明文，只有密码这个字段，明显是经过加密的。所以，自制rdp文件的任务的关键就是要生成这个密码。查了一下，mstsc.exe使用的加解密算法分别是C 阅读全文