怎样在Delphi中调用EXE文件
//加一下按钮，加一个对话框就OK啦
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;
---------------------------------------------------------------
我们常用的函数有两个，WinExec 和 ShellExecute。
1） 使用 WinExec 函数 （属于 WinProcs单元）
· 声明形式 UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow);
[例] var SDir:string;
SetLength(SDir,144);
GetWindowsDirectory(PChar(SDir),144);
SetLength(SDir,StrLen(PChar(SDir)));
SDir:=SDir+'\notepad.exe'+' '+savedialog1.FileName;
WinExec(PChar(SDir), SW_SHOWMAXIMIZED);
注意：如果 SDir 不是有效路径不会提示错误。
[例] winexec('command.com /c copy *.* c:\',SW_Normal);
[例] winexec('start abc.txt');
2）使用 ShellExecute 函数（属于ShellAPI单元）
它的几个参数：
· hwnd：窗体的句柄；
· lpOperation：打开程序执行的操作，共预留有"open"、"explore"、 "print"三种方式，此参数可以省略，此时将依据打开的文件（lpFile）的类型执行相应的操作，比如：如果lpFile为一文本文件，那么将会在与该文件相关联的程序中打开它
· lpFile：文件名；
· lpParamerters：打开文件时所需的参数；
· lpDirectory：文件名所在的路径，当然，一般来说，在Windows中登记过的程序（如WinWord）不必提供此参数；
· nShowCmd：打开文件后程序窗体如何显示。
（1）运行可执行文件
[例] 以"记事本"为例
procedure TForm1.OpenBtnClick(Sender:TObject);
begin ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal); end;
此外，ShellExeCute() 还可以进行链接网络。
[例] procedure TForm1.HttpClick(Sender: TObject);
begin
ShellExecute(handle,'open','http://liangming.163.net', nil,nil,SW_ShowNormal);
end;
（2）打开在Wi
相关文档：
开发者都希望自己的程序有一个友好的界面，此时，一个生动活泼、有表现力的光标就必不可少了。Windows 缺省提供22种标准光标供在程序中调用，但对一个求新求变的程序员来说，标准光标就不能满足要求了，需要使用自己的光标，那么，在程序中怎样使用自己的光标呢？ ●光标资源的获得 要使用自定义光标，必须先得到这 ......
DirectoryExists('C:\WINDOWS'):Boolean;检测文件夹是否存在！
FileExists('c:\Dir.txt'):Boolean;检测文件是否存在！
EDIT组件
OnChange 当编辑框中的内容发生变化时触发该事件
OnKeyPress 当按下一个按键时，触发该事件
OnEnter 编辑框获得输入焦点时，触发该事件
MEMO组合
WordWrap 用于设定Momo组件是否具有自� ......
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个：CommaText。怎么用呢？用代码说话：
const ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button ......
第一种方法,使用SelectDirectory 函数 ,在ShellApi中
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='这是浏览文件夹的说明文字，可以根据需要� ......
