上一页 1 ··· 31 32 33 34 35
摘要: 请在interface处uses句中加入ShellAPI有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。1.CreateProcess因为使用复杂,比较少用。2.WinExec主要运行EXE文件。如:WinExec('Notepad.exe Readme.txt', SW_SHOW);3.ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。首先必须引用shellapi.pas单元:uses ShellAPI;1).标准用法 ShellExecute函数原型及参数含义如下: function Shell 阅读全文
posted @ 2014-01-06 14:36 孤舟残月浅笑嫣然 阅读(1231) 评论(0) 推荐(1) 编辑
摘要: MessageBox对话框 输入控件的 ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer; hWnd:对话框父窗口句柄,对话框显示在Delphi窗体内,可使用窗体的Handle属性,否则可用0 阅读全文
posted @ 2014-01-06 14:34 孤舟残月浅笑嫣然 阅读(696) 评论(0) 推荐(0) 编辑
摘要: 哈希函数哈希法,又称散列法、杂凑法、关键字地址计算法。这种方法的中心思想是,首先在元素的关键字k和存储位置p之间建立一个对应关系f,使得p=f(k),f称为哈希函数。创建哈希表时,把关键字为k的元素直接存入地址为f(k)的单元,以后当查找关键字为k的元素时,再利用哈希函数计算出该元素所存储的位置p=(k),从而达到按关键字直接存取元素的目的。哈希函数的构造方法:1、数字分析法,如果关键字中有分布较为均匀的部分,则可以使用这几位为哈希地址。例如关键字是4位整数d1d2d3d4,其中d2和d4取值均匀,那么哈希函数可以设为h(key)=h(d1d2d3d4)=d2d4。2、平方取中发,如果不能确定 阅读全文
posted @ 2014-01-06 14:31 孤舟残月浅笑嫣然 阅读(229) 评论(0) 推荐(0) 编辑
摘要: 在Windows编程时,为了兼容Win7与XP,许多需要底层权限的程序需要通过UAC验证,这是微软出的一个很恶心的东西……还不如Ubuntu那种Root机制呢……但是有困难我们就要克服~现在有一种方式可以变相的绕过UAC控制。其实UAC控制有一点很弱智的是,当你的程序名字中包含Installation、Setup等词时,UAC认为你是安装程序,会默认进行UAC提示,提示用户给此程序提高权限。这对于安装包可以简单解决,但是如果我们的主程序也需要高权限的话,我们需要一个manifest文件来告诉UAC:我需要一个较高的权限,UAC也会提示用户提权。具体操作如下,但是此方法有个不能解决的问题是U.. 阅读全文
posted @ 2014-01-06 14:29 孤舟残月浅笑嫣然 阅读(302) 评论(0) 推荐(0) 编辑
摘要: Delphi中的窗体,有模式窗体与非模式窗体两种。两种窗体的调用方式不同,模式窗体使用ShowModal显示,非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的,你不能把焦点从模式窗体转到其他窗体上。而非模式窗体则没有这种限制,你可以从一个非模式窗体切换到另外一个非模式窗体上。两种窗体的区别仅仅在调用的方式上有区别。窗体的创建:当使用Delphi的IDE New一个窗体后,在Project1.dpr文件中,会出现一句1Application.CreateForm(TForm2, Form2);意思是当程序启动的时候会创建TForm2类的Form2实例,也就是窗体.. 阅读全文
posted @ 2014-01-06 14:26 孤舟残月浅笑嫣然 阅读(1049) 评论(0) 推荐(0) 编辑
摘要: 设置时Table1.Active := False;procedure TForm1.FormCreate(Sender: TObject);var s: string;begin s := ExtractFilePath(ParamStr(0)) + 'MyDatabase'; //数据库存放在程序当前目录内的MyDatabase里 //ShowMessage(s); Table1.DatabaseName := s; Table1.Active := True;end;Table有3个属性很重要:Active:打开数据连接,设置DatabaseName和TableName属 阅读全文
posted @ 2014-01-03 22:17 孤舟残月浅笑嫣然 阅读(116) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(... 阅读全文
posted @ 2013-12-29 16:11 孤舟残月浅笑嫣然 阅读(496) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public ... 阅读全文
posted @ 2012-08-06 16:50 孤舟残月浅笑嫣然 阅读(514) 评论(0) 推荐(0) 编辑
上一页 1 ··· 31 32 33 34 35