Dephi 技术文章
cui55
这个作者很懒,什么都没留下…
展开
-
用Delphi实现WINDOWS XP中“本地连接”的启用和禁用
(****************************************************************************** * CopyRight (c) By 姚佩云 2004 * All Right Reserved * Email : i_rock_1001@163.com www.jynx.com.cn * Date : * New Develop :转载 2008-03-11 16:16:00 · 785 阅读 · 0 评论 -
如何在DELPHI中操作EXCEL电子表格
如何在DELPHI中操作EXCEL电子表格 EXCEL电子表格作为办公软件OFFICE中的重要组成部份,是日常办公系统的主要助手,因此许多日常所需的业务方面的数据通常是通过电子表格存取。有时我们需要从日常工作中创建的EXCEL中取得数据进行操作、打印、查询,统计等工作。在这里我将介绍如何利用delphi完成EXCEL电子表格中数据的操作。 一、新建一项目,从控件栏ser转载 2008-07-04 16:55:00 · 1989 阅读 · 0 评论 -
把TClientDataSet当作一个内存数据表
var F_CData:TClientDataset; begin F_CData := TClientDataset.Create(nil); F_CData.FieldDefs.Add(产品名称,ftString, 30, False); F_CData.FieldDefs.Add转载 2008-08-28 15:02:00 · 1648 阅读 · 0 评论 -
Delphi的TThread类
我们常有工作线程和主线程之分,工作线程负责作一些后台操作,比如接收邮件;主线程负责界面上的一些显示。工作线程的好处在某些时候是不言而喻的,你的主界面可以响应任何操作,而背后的线程却在默默地工作。VCL中,工作线程执行在Execute方法中,你必须从TThread继承一个类并覆盖Execute方法,在这个方法中,所有代码都是在另一个 线程中执行的,除此之外,你的线程类的其他方法都在主线程执行转载 2008-08-04 09:05:00 · 1595 阅读 · 0 评论 -
Delphi中的线程类
Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程,即所谓的主线程。同时还可以有多个子转载 2008-07-09 15:31:00 · 3837 阅读 · 2 评论 -
一个TThread类多线程实例
窗体单元:unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,myThread, StdCtrls;typeTForm1 = class(TForm)转载 2008-07-09 15:33:00 · 4108 阅读 · 0 评论 -
Delphi操作Excel大全
(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:转载 2008-07-07 08:40:00 · 1361 阅读 · 0 评论 -
两个delphi下遍历指定目录下指定类型文件的函数
// ================================================================// 遍历某个文件夹下某种文件,// 使用说明// _GetFileList(ListBox1.Items,c:/*.doc);// _GetFileList(MyTStringList,c:转载 2008-07-07 08:36:00 · 923 阅读 · 0 评论 -
delphi的Split函数 3个版本
一、直接使用如下函数(注:ch只能是单字符,如键盘上英文状态下的字符)function SplitString(const Source,ch:String):TStringList;vartemp:String;i:Integer;beginResult:=TStringList.Create;//如果是空自符串则返回空列表转载 2008-07-07 08:18:00 · 5096 阅读 · 0 评论 -
NetSh与DNS的相关操作
一、添加IP地址及默认网关(是添加,要重设或更新原来IP的请看第三点) : netsh interface ip add address 用法: add address [name=] [[addr=]IP address [mask=]IP subnet mask] [[gateway=]IP address [gwmetric=]integer] 参数: name - IP 接口名称。 add转载 2008-03-12 08:07:00 · 7651 阅读 · 0 评论 -
Delphi中利用管道重定向实现对控制台(Console)程序的操作
测试目标: 设计一个虚拟的Dos控制台,包含一个Memo和一个ComboBox,要求可以在ComboBox中输入Dos命令,然后由系统捕获命令输出的结果显示在Memo中. 程序设计思路: 首先,利用WIN API函数 Createpipe 建立两个管道(Pipe),然后建立利用CreateProcess函数创建一个控制台程序的进程(这里使用的是Win2000的Dos控制台 cmd.exe),并且在转载 2008-03-12 08:10:00 · 5027 阅读 · 1 评论 -
Delphi 调用netsh命令修改IP地址
Delphi 调用netsh命令修改IP地址 先介绍一下Netsh命令的使用方法: 在这里跟大家介绍几个简单的指令 1.Show IP 1.1Cmd Mode 直接在cmd下面输入 netsh interface ip show address 亦可简写为 netsh int ip sh ad 看看,指令是不是和Cisco的nos指令很像!非常怀疑是抄袭Cisco的。 1.2Netsh Mode转载 2008-03-12 08:06:00 · 4750 阅读 · 1 评论 -
获得及设置本机的ip地址,子网掩码,网关,dns服务器信息
1、//取IP地址 function GetIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWS转载 2008-03-11 16:18:00 · 4389 阅读 · 1 评论 -
对已经存在Excel文件修改后保存时,会弹出一个询问对话框
对已经存在Excel文件修改后保存时,会弹出一个询问对话框: --------------------------- 在当前位置发现已经存在名为“RESUME.XLW” 的文件。您希望将该文件替换掉吗? --------------------------- 在保存前设置DisplayAlerts属性,即可屏蔽该对话框。如下所示:转载 2008-07-04 17:02:00 · 8782 阅读 · 0 评论