- 博客(27)
- 资源 (61)
- 收藏
- 关注
RSS订阅转载 delphi 服务操作
[delphi] view plain copy print?unit Service; interface uses Windows,Messages,SysUtils,Winsvc,Dialogs; function StartServices(Const SvrName:String):Boo
2017-04-28 15:05:33
581
转载 Delphi启动/停止Windows服务,启动类型修改为"自动"
Delphi启动/停止Windows服务,启动类型修改为"自动"unit U_StartServices;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WinSVC, StdCtrls;type TF
2017-04-27 18:15:49
1310
转载 WinAPI: ShellExecute - 打开外部程序或文件
ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil} Directory: PChar; {
2017-04-21 09:25:32
3590
转载 磁卡ID卡IC卡的区别
今天被一个朋友问到ID卡和IC卡有什么区别，还真给问住了。虽然平时经常用到这些卡，包括磁卡、射频卡什么的，但是要细究这些东西的区别，好像还真说不出个所以然，于是乎回家后我挨个百度，现总结如下。一般我们手上的这些卡可以分成三类：磁卡、ID卡和IC卡，下面我一个一个介绍。一、具体定义1.磁卡磁卡是卡身上有一条黑色磁道的卡，例如我们的银行卡，利用磁
2017-04-19 11:17:03
7018
原创 delphi中exit,abort,break,continue 的区别
exit: 退出函数体abort: 遇到异常,安静处理,就是不显示不提示break: 退出当前循环体,包括for ,while, repeat等循环体continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行 Exit 是跳出当前代码块，也就是当前函数，跳出后是要继续向下执行的（如果有后续代码）。Abort 是从 EAbort 过来的，可以激发 e
2017-04-17 10:44:18
614
转载 各种排序总结（二）之--归并排序、希尔排序、插入排序
1. 归并操作(merge)，也叫归并算法，指的是将两个已经排序的序列合并成一个序列的操作。 A: 如设有数列{6，202，100，301，38，8，1} B: 初始状态： [6] [202] [100] [301] [38] [8] [1] 比较次数 C: i=1 [6 202 ] [ 1
2017-04-17 09:27:03
509
转载 各种排序总结（一）之--—冒泡排序、选择排序、快速排序
各种排序总结——冒泡排序、选择排序、快速排序 1、冒泡排序是比较经典的排序方法，是一种用时间换空间的排序方法。我总结了一下它的特点：（1）它的时间复杂度是；（2）每一趟相邻元素两两比较完毕就会产生最值（最大值）；（3）每次比较完后下一趟就会少一个元素参与比较（即该趟比较的最大值）。 下面就是简单的排序原理图（以下排序都是按照从小到大）：
2017-04-17 09:23:10
2927
转载 delphi文件操作
Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用. 但: input:只读、output:只写。用时注意以免引起异常.文件是由文件名标识的一组数据的集合，文件通常存放在磁盘上。源程序、学生档案记录、图形、音乐等均可以作为文件存储在磁盘上。操作系统是以文件为单位对数据进行管理的，也就是说，如果想读取外存介质上的数据，必须先按文件名找到所指定的文件，然后再
2017-04-14 15:51:31
584
原创 delphi出现‘尚未调用CoInitialize’异常
1. 由于使用ado等引起的异常。2. 若是子线程或某方法操作ado可在该方法开头和结尾分别加上：function myfunbeginCoInitialize(nil); // your code;CoUninitialize; end;3. 在主方法加入该句子有时候不能解决问题，因为默认是初始化主线程的，只有在子线程或方法加入才行。
2017-04-14 15:37:59
969
原创 备份数据库时提示“无法打开备份设备”
提示这个说明你备份到桌面上了，桌面文件默认是C盘下的，在SQL2005/2008以后备份文件路径是不能后为C盘的。因此改一下盘符就可以了
2017-04-14 15:36:22
5465
转载 delphi 得到执行程序的当前所在完整路径
在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别: ExtractFilePath 传回值的最後一个字元是反斜杠“\”。ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:\tempShowMessage(Ex
2017-04-14 15:33:48
10014
转载 delphi服务程序(service)的调试方法
方法一：1.调试delphi 写的服务程序，有这么一个办法。原来每次都是用attach to process方法，很麻烦。并且按照服务线程的执行线路，可能会停不到想要的断点。笨办法是，在procedure TsvcFrm.ServiceExecute(Sender: TService);中想要下断的语句前加个人定胜天的sleep(20000)，但实际上这种办法是主观臆测的。可行，没问题。记得大
2017-04-14 08:58:24
1252
转载 用Delphi创建服务程序
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单File-
2017-04-12 18:20:06
656
原创 取SQL数据库（排除SQL自身数据库）
select name from master..sysdatabases where name not in ('master','model','msdb','tempdb','northwind','pubs')
2017-04-11 12:13:22
2190
1
转载 老陈---谈Delphi中SSL协议的应用[转]
摘要:本文主要介绍如何在Delphi中使用SSL协议.一共分为七个部分:(1)SSL协议是什么?(2)Delphi中如何使用SSL协议?(3)SSL客户端编程实例.(4)SSL服务端编程实例.(5)SSL证书编程实例.(6)中间人欺骗实例.(7)其它.本文作者同时有一个用SSL协议编写的作品叫SSLPROXY,感兴趣的读者可以从作者主页http://www.138soft.org下载.
2017-04-11 00:11:27
1015
转载 调用存储过程【Delphi版】
A)返回结果为参数varCn:TAdoConnection;Sp:TAdoStoredProc;recordCount:string;beginCn := TAdoConnection.Create(nil);tryCn.ConnectionString := [数据库连接字符串];Cn.LoginPrompt := False;Cn.KeepCon
2017-04-10 17:42:53
455
转载 获得文件版本信息
//MMWIN:MODULECOPYunit _MM_Copy_Buffer_;interfaceimplementationprocedure GetBuildInfo(var AProductName, AVer, ALegalCopyright: string);varVerInfoSize: DWORD;GetInfoSizeJunk: DW
2017-04-10 17:30:08
582
转载 delphi 7邮件发送程序编写
delphi 7发送个邮件一般用到TIdSMTP与TIdMessage这两个组件，他们分别在Indy Clients和Indy Misc两个面板组件页内，或者通过菜单 View -> Component List里面直接输入控件名字查找控件。一般的邮件发送用到前两个控件就可以了，但是现在许多邮箱需要通过SSL加密来发送邮件，这样还需要一个控件TIdSSLIOHandlerSocket（
2017-04-10 15:21:11
908
转载 Delphi中ShellExecute的妙用
ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, 'open', PChar('c
2017-04-06 18:01:56
1156
原创 Delphi中打开网页连接的几种方法
Delphi打开网址链接的几种方法： 1： 用默认浏览器打开 uses shellapiprocedure TForm1.Button2Click(Sender: TObject);beginShellExecut(Applicatio
2017-04-06 17:57:45
8475
原创 Delphi产生任务栏图标【TNotifyIconData】
一．新建一个应用程序：File->New Applicaton 在Interface部分要放在Uses Message之后，定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。二．定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着这个变
2017-04-06 17:08:58
2162
原创 delphi SetWindowPos改变窗体位置和状态
//声明:SetWindowPos(hWnd: HWND; {窗口句柄}hWndInsertAfter: HWND; {窗口的 Z 顺序}X, Y: Integer; {位置}cx, cy: Integer; {大小}uFlags: UINT {选项}): BOOL;//hWndInsertAft
2017-04-06 16:40:07
2606
原创 SQL Server 2000 数据库安装与配置图文教程
摘要]SQL Server 2000 是Microsoft 公司推出的SQL Server 数据库管理系统的一个版本。该版本继承了SQL Server 7.0 版本的优点同时又比它增加了许多更先进的功能，具有使用方便,可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器
2017-04-06 16:27:51
13142
原创 DES 算法的使用
DES 算法简介DES 加密算法属于对称密码范畴，那么什么是对称密码呢？加密和解密过程中所使用的密钥相同，就是对称密码，而且大多数对称密码算法，加密解密过程都是互逆的。DES 算法是一种数据加密算法，明文按照 64 位进行分组，分组后的明文与密钥按位替代或交换的方法形成密文组。 密钥的长度是 64 位（其实是56位，其中有8位是奇偶校验位）。DES 工作模式简介1 .
2017-04-06 16:23:31
608
原创 Delphi编程实现SQL Server挂起清除
当我们在重新安装Microsoft SQL Server 2000数据库的时候会发生错误，导致无法继续安装，这样就必须重新启动电脑之后才可以继续安装，很麻烦，其实只需要删除注册表中的一个名为PendingFileRenameOperations的键值即可免除重新启动电脑的麻烦。而这个键值在HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr
2017-04-06 16:22:02
456
转载 Delphi与Windows 7下的用户账户控制(UAC)机制
WIN7/WIN8/WIN10, Vista提供的UAC机制，它的主要目的是防止对于操作系统本身的恶意修改。对于Delphi程序的影响，UAC主要在于以下几点：1、由于UAC机制，Delphi对于系统的操作可能无声的失败，而同样的程序，在2000/X下面可能运行正常。譬如注册表的改动。。。2、为了避免这样的情况，Delphi程序必须支持Vista UAC标注，也就是说，在UAC程序的图
2017-04-01 10:44:12
1686
FInalbuilder使用说明
2017-02-16
Desktop.zip
2019-12-17
一键解决sql server2000评估出错及服务启动不起来问题
2017-11-15
Delphi网络通信协议分析与应用实现
2017-10-19
SQL Prompt
2017-10-11
delphi 的ehlib 4.5
2017-09-02
Delphi的Ehlib3.2第三方控件
2017-09-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人