51CTO首页
AI.x社区
博客
学堂
精品班
软考社区
免费课
企业培训
鸿蒙开发者社区
信创认证
公众号矩阵
移动端
视频课 免费课 排行榜 短视频 直播课 软考学堂
全部课程 软考 信创认证 华为认证 厂商认证 IT技术 PMP项目管理 免费题库
在线学习
文章 资源 问答 课堂 专栏 直播
51CTO
鸿蒙开发者社区
51CTO技术栈
51CTO官微
51CTO学堂
51CTO博客
CTO训练营
鸿蒙开发者社区订阅号
51CTO软考
51CTO学堂APP
51CTO学堂企业版APP
鸿蒙开发者社区视频号
51CTO软考题库

不要小看自己

有一个小男孩非常自卑，贫寒的家境使他老觉得自己处处低人一等。在学校里，小男孩总是低着头走路，只要碰到不三不四的学生，他便赶紧躲开。尽管如此，他仍然常常无缘无故地成为别人的出气筒，可怜的他，连还手的勇气也没有。受尽欺负的小男孩常在心里问自己：“我什么时候才能比别人强一点呢？”     有一天，老师带着全班同学来到一家生产水果罐头的工厂。孩子们的任务是刷洗那些收回来的空

职场
情感
励志
休闲
转载 2008-04-01 16:21:55 572 阅读

oracle函数大全

SQL中的单记录函数1.ASCII返回与指定的字符对应的十进制数;SQL> select ascii('A') A,ascii('a') a,ascii('0') zero,ascii(' ') space from dual; A A ZERO SPACE--------- --------- --------- ---------65 97 48 32 2.CHR给出整数,返回对应的

oracle
函数
职场
大全
休闲
转载 2008-04-01 14:56:02 447 阅读 1评论

抓屏技巧二三例_Delphi 编程

这里有一些抓屏的技巧汇总，是本人平时编程积累下来的。在这里写出来，希望对大家有用。其实其技巧也不难，只要知道几个API函数，再加一些设备描述表的操作，你几乎可以做出非常好的抓屏软件。废话少说，现在开始介绍吧： 一，抓取全屏：这个几乎可以说是抓屏中最简单的一个了，相信很多人都会，但为了讲述完整，这里也列举出来。思想很简单，取得屏幕的设备描述表，赋值给一个Canvas的句柄，这时该Canvas就相当

职场
Delphi
编程
休闲
转载 2008-04-01 14:48:28 832 阅读 1点赞

用Delphi创建windows服务程序

Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处: (1)不用登陆进系统即可运行. (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的. 笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序. 运行Delphi7,选择菜单File--&g

程序
windows
服务
Delphi
创建
转载 精选 2008-04-01 14:45:27 9039 阅读 1收藏

用Delphi实现文件下载的几种方法

下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。我把它们都整理到这儿，让大家方

职场
文件
Delphi
实现
休闲
转载 2008-04-01 14:41:29 911 阅读

在Delphi程序中操作注册表

32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 　　 一、创建和释放TRegistry对象　　 1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；　　 2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy

注册表
程序
Delphi
操作
休闲
转载 2008-04-01 14:34:30 765 阅读 1收藏

delphi日期函数

Day 开头的函数 ● Unit DateUtils function DateOf(const Avalue: TDateTime): TDateTime; 描述 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 20

函数
职场
delphi
日期
休闲
转载 2008-04-01 14:32:05 708 阅读 1收藏

delphi控制Excel

(一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj:     var ExcelApp: Variant;     ExcelApp := CreateOleObject( ’Excel.Application’ ); 1) 显示当前窗口：     

职场
delphi
Excel
休闲
控制
转载 2008-04-01 14:27:58 1915 阅读 1点赞 1收藏 1评论

Tchart分析报告

1          Tchart分析报告 1.1      [概述]    TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。 1.2 &nb

职场
分析
休闲
报告
Tchart
转载 2008-04-01 14:26:31 1775 阅读

TChart使用经验小结

1、问题：通过Addxy方法给TChart添加标记（Mark）时，发现在TChart的横坐标会随着Mark而变化，后来发现通过以下方法可避免这种情况：双击TChart，点击Axis-> top or bottom ->labels，在styles中将labels的形式改为Value即可！ 2、几个有用的属性：      &

职场
使用
经验
休闲
TChart
转载 2008-04-01 14:24:07 1108 阅读

Delphi图表控件TChart使用FAQ

最近开发要使 用图表，Delphi里提供了图表开发的控件TChart，可惜帮助里没有DEMO代码，上网搜索了一下，竟然发现文章也少的可怜。没办法，自己丰衣足 食，写代码试用，看帮助，读代码，搞了半天大概弄明白了TChart的使用方式，下面写一下几个常见问题的解决。 1.如何写一个TChart的Hello World？ 放一个控件到窗体上，然后写代码加入一个折线数据序列： varSer

Delphi
控件
FAQ
图表
TChart
转载 2008-04-01 14:20:58 1148 阅读

动态调整打印机纸张大小

信息管理系统中经常要提供各种打印功能，例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的，例如，打印报表有可能使用A4 纸或A3 纸，打印凭证或发票可能需要将打印纸张设置成自定义大小。如果在同一台打印机上打印这些内容，那么就应该针对不同的打印内容设置不同的纸张尺寸。显然如果用手动的方法来设置打印机的纸张尺寸是件很麻烦的事，最好的方法是让程序动态地修改打印机的纸张尺寸

职场
打印机
休闲
动态
调整
转载 2008-04-01 14:17:56 2954 阅读 1收藏

random函数详解 ，随机函数 全

摘自：[url]http://www.flashempire.com/school/tutorview.php?id=336[/url]     Randomize 语句 -------------------------------------------------------------------------------- 示例  &n

函数
其他
休闲
随机
random
转载 2008-04-01 14:15:49 8244 阅读

Delphi + Word = 数据库 + 公文处理

delphi擅长做数据库类的mis开发，但对于oa就有点力不从心了。不过随着microsoft的com技术逐渐成熟，现在普通windows应用已经可以和office 97无缝结合了，尤其是在delphi 5中提供了一组servers组件，更是简化了程序开发。 最近接触了一个用户的案例，用delphi控制word做一个合同管理程序。办公人员先根据业务需要，写好合同的文字

office，word
数据库
Delphi
Word
休闲
转载 2008-04-01 14:11:16 973 阅读

delphi操作word

delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Application')启动Word

office，word
delphi
word
操作
休闲
转载 2008-04-01 14:10:21 2925 阅读 1收藏

Delphi和Word之间的编程

http://search.csdn.net/Expert/topic/2498/2498249.xml?temp=.6766474     [url]http://search.csdn.net/Expert/topic/772/772760.xml?temp=.791073[/url]     [url]http://search.csdn.net/Ex

office，word
Delphi
编程
Word
休闲
转载 2008-04-01 14:07:50 1455 阅读

系统日期时间格式设置

function TForm1.GetsysShortDateFormat: string;varsgs:string;begin  setlength(sgs,12);  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE ,PChar(sgs),12);  result:=string(pchar(sgs))

设置
时间
系统
格式
日期
转载 2008-04-01 14:00:46 1987 阅读 1收藏

如何让del+CTRL+ALT看不见程序运行

问:如何让del+CTRL+ALT看不见程序运行? 答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; 再在上面的窗口Create事件加上

运行
程序
CTRL
ALT
del
转载 2008-04-01 13:59:16 3421 阅读 1收藏

Delphi开发环境中应用层网络协议的实现

参考网址:[url]http://www.yesky.com/406/181406.shtml[/url] 已经进入Internet网络时代了,许多新出的软件都拥有网络功能。其实,在这些软件背后所依靠的技术基础就是一系列的Inernet网络协议标准,亦即TCP/IP系列协议。　　下面本人简要介绍一下在Delphi环境下，直接采用winsock套接字编程，应用SNTP协议开发出具有网络时间校准功能

网络
Delphi
环境
开发
应用层
转载 2008-04-01 13:54:49 1134 阅读 1收藏

几种程序自杀

procedure DeleteMe;var  BatchFile: TextFile;  BatchFileName: string;  ProcessInfo: TProcessInformation;  StartUpInfo: TStartupInfo;begin  BatchFileName := ExtractFilePath(Pa

职场
程序
休闲
转载 2008-04-01 13:52:46 910 阅读 1收藏

新Delphi隐藏当前进程

主要需要解决两个问题，即隐藏窗口和设定热键。一. 隐藏窗口　　通过API函数GETACTIVEWINDOW获取当前窗口；函数ShowWindow(HWND,nCmdShow)的参数nCmdShow取SW_HIDE时将之隐藏，取SW_SHOW时将之显示。例如：showwindow(getactivewindow,sw_hide)。隐藏好窗体后，须记住窗体句柄以便恢复。二. 键盘监控　　为了实现键

职场
进程
隐藏
Delphi
休闲
转载 2008-04-01 13:50:25 1296 阅读 1收藏

屏蔽“任务管理器”

//适用于Win NT/2K/XP, //参数Key为True,屏蔽“任务管理器”；为False,“任务管理器”可用 //使用方法： //DisableTaskmgr(True); procedure DisableTaskmgr(Key: Boolean);VarReg:TRegistry;BeginReg:=TRegistry.Create;tryReg.RootKey := HKE

职场
任务
休闲
管理器
转载 2008-04-01 13:49:21 972 阅读 1收藏

线程中关闭窗体的实现

在本人的《自动关闭信息提示窗体的实现》中实现了利用线程来关闭不需要的窗体技术，它所实现的是关闭同一程序中的窗体，而有时是需要关闭不在一个程序中的窗体的。比如，现在所见到的“广告杀手”（自动关闭广告窗体的一个程序）。       实现关闭窗体的关键在于找到该窗体的句柄，之后就可以发送WM_CLOSE给该窗体实现窗体的关闭。下面就是一个典型的例子用

关闭
职场
窗体
线程
休闲
转载 2008-04-01 13:48:36 1128 阅读 1收藏

接口小用

很多人总是问我，接口怎么用，什么时候用它。猛地被他们一问，只能讲讲以前的应用，发现都不是非常容易理解，今天发现有一个实例，还是非常好讲解的。 我们有一个对数据进行快速下载的函数。procedure TDataSwitch.DownTable(ASQLStr, ATableName: string);var  tmpDataSet: TDataSet;  tmpDestDa

职场
接口
休闲
转载 2008-04-01 13:47:29 606 阅读 1收藏

利用Delphi和金山词霸制作批量单词翻译

最近本人正在准备CET-4的考试，从同学那得到了一份“四级高频词”的doc文档，该文档只有单词，并没有音标和解释，如果进行人工一个一个翻译很是费事，因此本人利用Delphi和金山词霸2002特别制作了一个单词批量翻译，并且可以将翻译结果直接保存为RTF文件的程序。其程序界面如下： 原理分析：　　利用“金山词霸2002”的翻译功能，进行单词的翻译，利用Delphi获取“金山词霸2002”中翻译

Delphi
单词
金山词霸
休闲
翻译
转载 2008-04-01 13:46:08 746 阅读

通过指点操作获得窗口句柄

赵砥:     我用VB的sendkeys编写了一个向其他程序模拟键盘发送字符的工具，因VB编的程序体积太大，    我想用Delphi重写，使用SendMessage等API函数，但我想找到一个用鼠标点一下其他进程的    窗口便可获得该窗口的线程id和窗口句柄的方法，请指点一下。（使用findwind

职场
操作
窗口
休闲
转载 2008-04-01 13:43:39 2137 阅读 1点赞 1收藏

传输文件例子的核心代码

你可以用，DELPHI7的INDY这组控件。采用的是TCP协议，支持多线程，而且也可以监控流量。如果你用得是DELPHI6,那么可以去[url]http://www.nevrona.com/indy/[/url]下载一个。下面是我写的部分代码： SERVER procedure TFrmUpdate.StartServerClick(Sender: TObject);begin　with TC

代码
文件
传输
核心
例子
转载 2008-04-01 13:40:51 1048 阅读

不用控件用函数实现发Emai

uses　windows,messages,winsock,sysutils; {$R *.RES} const　CRLF=#13#10;　exename:pchar='邮箱信使';var　thd:array[1..1000] of integer;　tid:array[1..1000] of dword;　faint,hMutex,mcount,speed,newtime,oldtime

函数
Email
控件
其他
休闲
转载 2008-04-01 13:38:07 726 阅读 1收藏

Delphi的常用函数

名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 在堆栈上分配给定大小

函数
职场
Delphi
常用
休闲
转载 2008-04-01 13:36:05 623 阅读

DELPHI基础开发技巧

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,y

基础
DELPHI
开发
技巧
休闲
转载 2008-04-01 13:24:47 908 阅读 1收藏

Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号

关于我们
官方博客 全部文章 热门标签 班级博客
了解我们 网站地图 意见反馈
友情链接
鸿蒙开发者社区 51CTO学堂
51CTO 软考资讯