上一页 1 ··· 15 16 17 18 19
2015年4月27日
实现窗体随着鼠标移动(控件)--《用delphi开发共享软件》-15.1任务管理器
摘要： private //窗体移动；OldPos,NewPos:TPoint;bMove:Boolean;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Inte... 阅读全文
posted @ 2015-04-27 17:32 海蓝7 阅读(337) 评论(0) 推荐(0) 编辑
字体和壁纸合并后再更改壁纸--《用delphi开发共享软件》-15.2桌面提示器
摘要： 1 procedure TFrmPlay.mnDeskPicClick(Sender: TObject); 2 Var s:String; i:Integer; 3 begin 4 //s:=Path+'SetPic.exe'; 5 //EnableDebugPrivilege(True)... 阅读全文
posted @ 2015-04-27 16:24 海蓝7 阅读(200) 评论(0) 推荐(0) 编辑
启动windows的服务--《用delphi开发共享软件》-15.2桌面提示器
摘要： 在dos 下用命令启动一个服务：NET START "Windows Desktop Reminder" 一下为用delphi启动服务：Function RunProcess(sApp,sPara:String):Boolean;beginZeroMemory(@sStartInfo, sizeof... 阅读全文
posted @ 2015-04-27 15:46 海蓝7 阅读(191) 评论(0) 推荐(0) 编辑
《用delphi开发共享软件》-15.2桌面提示器
摘要： 打开一个配置文件：打开一个配置文件操作TStringGrid 1 Procedure EmptyGrid(Var sg:TStringGrid); 2 Var i:Integer; 3 begin 4 for i:=1 to sg.RowCount -1 do 5 sg.Rows[i].clear;... 阅读全文
posted @ 2015-04-27 12:10 海蓝7 阅读(322) 评论(0) 推荐(0) 编辑
delphi 对Tmemo指定的行写入
摘要： mmoMonitor:Tmemo;mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; 1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); 2 begin 3 ctsLog.Enter; ... 阅读全文
posted @ 2015-04-27 10:08 海蓝7 阅读(407) 评论(0) 推荐(0) 编辑
2015年4月24日
delphi 时间格式操作
摘要： FormatDateTime('yyyy-mm-dd hh:nn:ss',Now) FormatDateTime('hh:mm:ss:zz',Now) if (TimeOf(now) < pub_StartWorkTime) or (TimeOf(now) > pub_EndWorkTime) th 阅读全文
posted @ 2015-04-24 09:16 海蓝7 阅读(949) 评论(0) 推荐(0) 编辑
2015年4月17日
Sleep函数的真正用意
摘要： 转自：http://blog.csdn.net/boyuejiang/article/details/8908333 关于VOID Sleep(DWORD dwMilliseconds);函数，许多人都觉得，它是告诉系统，延迟多少毫秒来执行后面的代码。 但是，在WINDOWS这样的非实时多任务系统中 阅读全文
posted @ 2015-04-17 12:06 海蓝7 阅读(2723) 评论(0) 推荐(0) 编辑
2015年4月13日
delphi公共函数 UMyPubFuncFroc--版权所有 (C) 2008 勇者工作室
摘要： {*******************************************************}{ }{ Delphi公用函数单元 ... 阅读全文
posted @ 2015-04-13 14:48 海蓝7 阅读(296) 评论(0) 推荐(0) 编辑
delphi override、overload、reintroduce的区别-0613.txt
摘要： http://blog.csdn.net/honglixx/article/details/3624934 1、override overload reintroduce的中文叫法是什么？ override：覆盖；overload：重载；Reintroduce：重定义 2、在子类中overrid... 阅读全文
posted @ 2015-04-13 14:45 海蓝7 阅读(337) 评论(0) 推荐(0) 编辑
8、显示程序占用内存多少.txt
摘要： 方法一： 要加单元 PsAPIprocedure TForm1.tmr1Timer(Sender: TObject);begin edt1.Text:= format('memory use: %d KB', [GetProcessMemUse(GetCurrentProcessId)]);//方法... 阅读全文
posted @ 2015-04-13 14:44 海蓝7 阅读(217) 评论(0) 推荐(0) 编辑
2015年4月10日
可逆加密解密单元文件和调用方法
摘要： 1 (**************************************************) 2 (* *) 3 (* Advanced Encryption Standar... 阅读全文
posted @ 2015-04-10 17:03 海蓝7 阅读(743) 评论(0) 推荐(0) 编辑
5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas 改进版
摘要： 用到临界区 保护写日志的函数； 递归函数 删除目录下的所有文件； 循环创建或判断FTP的目录； 可改进的地方：循环压缩深层次目录的所以文件； 实现断点续传，或断点下载； 阅读全文
posted @ 2015-04-10 16:27 海蓝7 阅读(624) 评论(0) 推荐(0) 编辑
Delphi7 客户端调用WebService（天气预报）
摘要： 客户程序：第一步：新建一个Application。第二步：File----->New----->Other------>WebServices----->WSDLImporter 然后在LocationofWSDLFileorURL中填入：http://10.22.30.61:36601/Mon... 阅读全文
posted @ 2015-04-10 16:02 海蓝7 阅读(1903) 评论(0) 推荐(0) 编辑
操作TAB文件和TStringGrid赋值；
摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,IniFiles, Grids, ExtCtrls, But... 阅读全文
posted @ 2015-04-10 13:59 海蓝7 阅读(267) 评论(0) 推荐(0) 编辑
2015年4月3日
转：delphi 删除指定文件夹下所有文件
摘要： function TFtpContentThd.DeleteDirectory(NowPath: string): Boolean;var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPat... 阅读全文
posted @ 2015-04-03 11:14 海蓝7 阅读(2077) 评论(0) 推荐(0) 编辑
2015年3月30日
5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas
摘要： {******************************************************************************* Copyright (C), 2014-2020, aicaipiao File name: UFtpContentThd.pas Author: lipingchen Version: Date: 2014092... 阅读全文
posted @ 2015-03-30 15:19 海蓝7 阅读(343) 评论(0) 推荐(0) 编辑
2015年3月27日
1、Delphi 打开目录和txt文件模块
摘要： //1、打开目录和打开txt文件 procedure TMainForm.bbtnOpenLoClick(Sender: TObject); var sLogName: string; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime('yyyy-mm-dd',date())+'.txt'; if not FileExis... 阅读全文
posted @ 2015-03-27 16:58 海蓝7 阅读(478) 评论(0) 推荐(0) 编辑
2.2 代码块--delphi 写日志模块
摘要： //2.2 代码块--写日志 //调用例句如：LogMsg('FTP上传线程终止',False,true); procedure LogMsg(AMsg: string; const blnIsErrorMsg: boolean = False; const BoolSaveToFile: Boolean = True); var strMsg: string; begin try ... 阅读全文
posted @ 2015-03-27 16:56 海蓝7 阅读(392) 评论(0) 推荐(0) 编辑
3、利用SuperObject 循环处理Json深层次的值
摘要： //Json 格式如下 阅读全文
posted @ 2015-03-27 16:52 海蓝7 阅读(1376) 评论(0) 推荐(0) 编辑
4、delphi record数组复制
摘要： SetLength(OldDeptInfo,0); //释放旧数组 OldDeptInfo:=nil; 这样也可以； //SetLength(OldDeptInfo,Length(NewDeptInfo)); //不需要设定长度； OldDeptInfo:= NewDeptI... 阅读全文
posted @ 2015-03-27 16:47 海蓝7 阅读(742) 评论(0) 推荐(0) 编辑
2015年2月11日
mysql -游标
只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2015-02-11 15:01 海蓝7 阅读(6) 评论(0) 推荐(0) 编辑
2013年4月18日
课程1：历经5年锤炼(史上最适合初学者入门的Java基础视频)--视频列表
摘要： \JavaSE基础视频01\01-计算机语言概述.avi;\JavaSE基础视频01\02-Java语言的跨平台原理(JVM).avi;\JavaSE基础视频01\03-Java语言(JDK&JRE).avi;\JavaSE基础视频01\04-Java语言(JDK的下载与安装).avi;\JavaS 阅读全文
posted @ 2013-04-18 19:44 海蓝7 阅读(931) 评论(0) 推荐(0) 编辑
2013年4月14日
新笔记本-JAVA环境配置，MySQL，navicat 安装
摘要： JAVA_HOME C:\Program Files\Java\jdk1.7.0_71 CLASSPATH .;%JAVA_HOME%\lib\dt.jar;%JAVA_HOME%\lib\tools.jar;MAVEN_HOME F:\Projects\Java\tools\apache-mave 阅读全文
posted @ 2013-04-14 00:49 海蓝7 阅读(164) 评论(0) 推荐(0) 编辑
上一页 1 ··· 15 16 17 18 19