25
2013
01

Delphi WinAPI: ShellExecute - 打开外部程序或文件

ShellExecute(
  hWnd: HWND;        {指定父窗口句柄}
  Operation: PChar;  {指定动作, 譬如: open、print}
  FileName: PChar;   {指定要打开的文件或程序}
  Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}
  Directory: PChar;  {缺省目录}
  ShowCmd: Integer   {打开选项}
): HINST;            {执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}//返回值可能的错误有:
                       = 0   {内存不足}
ERROR_FILE_NOT_FOUND   = 2;  {文件名错误}
ERROR_PATH_NOT_FOUND   = 3;  {路径名错误}
ERROR_BAD_FORMAT       = 11; {EXE 文件无效}
SE_ERR_SHARE           = 26; {发生共享错误}
SE_ERR_ASSOCINCOMPLETE = 27; {文件名不完全或无效}
SE_ERR_DDETIMEOUT      = 28; {超时}
SE_ERR_DDEFAIL         = 29; {DDE 事务失败}
SE_ERR_DDEBUSY         = 30; {正在处理其他 DDE 事务而不能完成该 DDE 事务}
SE_ERR_NOASSOC         = 31; {没有相关联的应用程序}//ShowCmd 参数可选值:
SW_HIDE            = 0;  {隐藏}
SW_SHOWNORMAL      = 1;  {用最近的大小和位置显示, 激活}
SW_NORMAL          = 1;  {同 SW_SHOWNORMAL}
SW_SHOWMINIMIZED   = 2;  {最小化, 激活}
SW_SHOWMAXIMIZED   = 3;  {最大化, 激活}
SW_MAXIMIZE        = 3;  {同 SW_SHOWMAXIMIZED}
SW_SHOWNOACTIVATE  = 4;  {用最近的大小和位置显示, 不激活}
SW_SHOW            = 5;  {同 SW_SHOWNORMAL}
SW_MINIMIZE        = 6;  {最小化, 不激活}
SW_SHOWMINNOACTIVE = 7;  {同 SW_MINIMIZE}
SW_SHOWNA          = 8;  {同 SW_SHOWNOACTIVATE}
SW_RESTORE         = 9;  {同 SW_SHOWNORMAL}
SW_SHOWDEFAULT     = 10; {同 SW_SHOWNORMAL}
SW_MAX             = 10; {同 SW_SHOWNORMAL}
//举例说明更多问题(别忘了 uses ShellAPI;):{譬如用记事本打开一个文件}begin ShellExecute(Handle, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL); end;
{第一个参数是用来当作错误提示窗口的父窗口的, 不能是 nil, 可以是 0(也就是桌面窗口)}begin ShellExecute(0, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL); end;
{第二个参数如果是 nil, 也会默认位 open}begin ShellExecute(0, nil, 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL); end;
{文件路径可以放在参数五}begin ShellExecute(0, nil, 'notepad.exe', 'SchedLgU.Txt', 'C:\WINDOWS', SW_SHOWNORMAL); end;
{把参数三直接指定为要打开的文件, 文件将用对应默认程序打开; 次数参数四应为 nil}begin ShellExecute(0, nil, 'SchedLgU.Txt', nil, 'C:\WINDOWS', SW_SHOWNORMAL); end;
{如果文件在: 程序目录/当前目录/System32/Windows/PATH环境变量中, 参数五也可以 nil}begin ShellExecute(0, nil, 'SchedLgU.Txt', nil, nil, SW_SHOWNORMAL); end;
{如果参数三是个文件, 可以用参数二命令打印}begin ShellExecute(0, 'print', 'SchedLgU.Txt', nil, nil, 1); end;
{用 IE 打开网页}begin ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL); end;
{用火狐打开网页}begin ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL); end;
{用默认浏览器打开网页}begin ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL); end;
{还是用默认浏览器打开网页}begin ShellExecute(0, nil, 'http://del.cnblogs.com', nil, nil, 1); end;

摘自:万一的 Delphi 博客

16
2013
01

PDF-Xchange 4.0 Pro 好用的码

pdf-xchange虚拟打印机打印效果很好(与foxit、nitro、acrobat对比过),尤其是cad图纸,该打印机能区分粗细线,其他的都是一样的线条!

然而美中不足的是,前段时间用的码,编辑、修改pdf文档一切正常,但打印pdf时一直有水印,今偶得一码,完美了!
都是pro专业版码,不打印的话都是好用的。
name:Team EAT
company:EATiSO
email:teameat@no_email.com
key:PXP40-TE9LD-K297V-L08I6-DKUZU-HJ2RT(打印完美)
PXP40-8HFT3-QTWZ1-QK2DN-MEUOP-VXG20(打印有水印,其他正常)。

摘自:zsf3210@126的博客

11
2013
01

如何使stringgrid(ValueListEditor1)的某个cell获得焦点

StringGrid.setFocus;
StringGrid.row:=j;
StringGrid.col:=i;
ValueListEditor1.SetFocus;
ValueListEditor1.Col := i;
ValueListEditor1.Row := j;
if ValueListEditor1.CanFocus then ValueListEditor1.SetFocus;
StringGrid1.Options.goEditing := True;
StringGrid1.Options.goAlwaysShowEditor := True;
  
ValueListEditor1.Options.goEditing := True;
ValueListEditor1.Options.goAlwaysShowEditor := True;


10
2013
01

北京驾校科目四-2013安全文明驾驶常识题库.doc

北京驾校科目四-2013安全文明驾驶常识题库 下载


一、 违法行为综合判断与案例分析(共33道)


二、 安全行车常识(共267道)


三、 常见交通标志、标线和交警手势信号辨识(共192道)


下载地址:

北京驾校科目四-2013安全文明驾驶常识题库

08
2013
01

delphi格式化输出函数:Format,FormatDateTime,FormatFloat

var
  s: string;
begin
  //指令类型 type
  
  s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]);
  //返回: 最大整数是: 2147483647; 最小整数是: -2147483648
  { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 }
  
  s := Format('最大的无负号整数是: %u',[High(Cardinal)]);
  //返回: 最大的无负号整数是: 4294967295
  { %u表示一个无负号整数 }
  
  s := Format('输入-2的结果是: %u',[-2]);
  //返回: 输入-2的结果是: 4294967294
  { 如果对应 %u 的是个负数, 则返回: 无负号整数最大值 - 这个数的绝对值 + 1 }
  
  s := Format('%s! %s',['你好','我是万一']);
  //返回: 你好! 我是万一
  { %s 表示字符串 }
  
  s := Format('%f',[Pi]);
  //返回: Pi的值是: 3.14
  { %f 表示浮点数, 保留或凑够两位小数点 }
  
  s := Format('%g',[01.2345000]);
  //返回: 1.2345
  { %g 表示浮点数, 会去掉多余的 0 }
  
  s := Format('%n',[12345.6789]);
  //返回: 12,345.68
  { %n 表示浮点数, 整数部分使用千位分隔符, 保留两位小数点 }
  
  s := Format('%m',[12345.6789]);
  //返回: ¥12,345.68
  { %m 表示浮点数, 加货币记号, 转换结果取决于系统的地域设置 }
  
  s := Format('%e',[12345.6789]);
  //返回: 1.23456789000000E+004
  { %e 用科学计数法表示整数或浮点数 }
  
  s := Format('%p',[@Self]);
  //返回: 0012F5BC
  { %p 表示指针地址, 用十六进制表示 }
  
  s := Format('%x',[255]);
  //返回: FF
  { %x 用十六进制表示一个整数 }
  
  
  //Index
  
  s := Format('%s%s',['万','一']);
  s := Format('%0:s%1:s',['万','一']);
  //返回: 万一
  { 上面两行的结果是一样的, 0: 对应数组中的第一个值; 1: 对应数组中的第二个值 }
  
  s := Format('%1:s%0:s',['万','一']);
  //返回: 一万
  { 翻转了一下顺序 }
  
  s := Format('%1:s%0:s%0:s%1:s',['万','一']);
  //返回: 一万万一
  { 反复使用 }
  
  
  //Width 与对齐方式
  
  s := Format('%d,%8d,%d',[1,2,3]);
  //返回: 1,       2,3
  { 给第二个值指定了8个字符的宽度, 缺少的用空格填充; 如果指定少了则无效 }
  
  s := Format('%d,%-8d,%d',[1,2,3]);
  //返回: 1,2       ,3
  { - 表示左对齐, 默认是右对齐的; - 符号在 Width 前面、Index 后面 }
  
  
  //指定精度 prec
  
  s := Format('%.9f',[Pi]);
  //返回: 3.141592654
  { 指定小数点的位数, 取值范围1-9, 输入0也当1用 }
  
  s := Format('%.5d',[12]);
  //返回: 00012
  { 这是给整数指定位数, 如果小了则无效 }
  
  s := Format('%.3s',['Format']);
  //返回: For
  { 给字符串指定位数, 如果大了则无效 }
  
  s := Format('%.3e',[123.456]);
  //返回: 1.23E+002
  { 给科学计数法指定位数 }
  
  
  //指令顺序:
  
  { "%" [index ":"] ["-"] [width] ["." prec] type }
  
  ShowMessage(s);
end;
var
  s: string;
begin
  //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间
  
  s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05}
  {指令 c 表示用短格式显示日期与时间}
  
  s := FormatDateTime('d', Now); {返回: 19}
  
  s := FormatDateTime('d', StrToDateTime('2008-1-1')); {返回: 1}
  {d 表示日期}
  
  s := FormatDateTime('dd', Now); {返回: 19}
  
  s := FormatDateTime('dd', StrToDateTime('2008-1-1')); {返回: 01}
  {dd 表示双位日期}
  
  s := FormatDateTime('ddd', Now); {返回: 星期三}
  
  s := FormatDateTime('dddd', Now); {返回: 星期三}
  {ddd 与 dddd 表示星期; 可能对不同的语种会有区别}
  
  s := FormatDateTime('ddddd', Now); {返回: 2007-12-19}
  {ddddd 五个 d 表示短格式日期}
  
  s := FormatDateTime('dddddd', Now); {返回: 2007年12月19日}
  {dddddd 六个 d 表示长格式日期}
  
  s := FormatDateTime('e', Now); {返回: 7}
  {e 表示年, 1位}
  
  s := FormatDateTime('ee', Now); {返回: 07}
  {ee 表示年, 2位}
  
  s := FormatDateTime('eee', Now); {返回: 2007}
  
  s := FormatDateTime('eeee', Now); {返回: 2007}
  {eee 与 eeee 返回4位数年}
  
  s := FormatDateTime('m', Now); {返回: 12}
  {m 表示月, 1位}
  
  s := FormatDateTime('mm', StrToDateTime('2008-1-1')); {返回: 01}
  {mm 表示月, 2位}
  
  s := FormatDateTime('mmm', Now); {返回: 十二月}
  
  s := FormatDateTime('mmmm', Now); {返回: 十二月}
  {mmm 与 mmmm 表示长格式月}
  
  s := FormatDateTime('y', Now); {返回: 07}
  
  s := FormatDateTime('yy', Now); {返回: 07}
  
  s := FormatDateTime('yyy', Now); {返回: 2007}
  
  s := FormatDateTime('yyyy', Now); {返回: 2007}
  {y yy yyy yyyy 表示年; 和 e 略有不同}
  
  s := FormatDateTime('t', Now); {返回: 0:21}
  
  s := FormatDateTime('tt', Now); {返回: 0:22:13}
  {t tt 表示时间}
  
  s := FormatDateTime('ampm', Now); {返回:  上午}
  
  s := FormatDateTime('tampm', Now); {返回: 0:24 上午}
  {ampm 表示上午、下午}
  
  s := FormatDateTime('h', StrToDateTime('2007-12-30 9:58:06')); {返回: 9}
  
  s := FormatDateTime('hh', StrToDateTime('2007-12-30 9:58:06')); {返回: 09}
  {h hh 表示时}
  
  s := FormatDateTime('n', StrToDateTime('2007-12-30 9:58:06')); {返回: 58}
  
  s := FormatDateTime('nn', StrToDateTime('2007-12-30 9:58:06')); {返回: 58}
  {n nn 表示分}
  
  s := FormatDateTime('s', StrToDateTime('2007-12-30 9:58:06')); {返回: 6}
  
  s := FormatDateTime('ss', StrToDateTime('2007-12-30 9:58:06')); {返回: 06}
  {s ss 表示秒}
  
  s := FormatDateTime('z', Now); {返回: 24}
  
  s := FormatDateTime('zz', Now); {返回: 524}
  
  s := FormatDateTime('zzz', Now); {返回: 524}
  {z zz zzz 表示毫秒}
  
  s := FormatDateTime('yy\mm\dd', Now); {返回: 07\12\19}
  
  s := FormatDateTime('yy/mm/dd', Now); {返回: 07-12-19}
  
  s := FormatDateTime('yy-mm-dd', Now); {返回: 07-12-19}
  
  s := FormatDateTime('yy*mm*dd', Now); {返回: 07*12*19}
  {使用分隔符, - 是默认的, / 是与 - 等效的, 假如我非要用 / 显示呢?}
  
  s := FormatDateTime('yy"/"mm"/"dd', Now); {返回: 07/12/19}
  
  s := FormatDateTime('"当前时间是: "yyyy-m-d h:n:s:zz', Now); 
  {返回: 当前时间是: 2007-12-19 0:47:16:576}
  {混入的字符串要包含在双引号中}
  
  ShowMessage(s);
end;
var
  s: string;
begin
  //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended
  
  s := FormatFloat('###.###',12.3456);
  //返回: 12.346
  s := FormatFloat('000.000',12.3456);
  //返回: 012.346
  
  s := FormatFloat('#.###',12.3);
  //返回: 12.3
  s := FormatFloat('0.000',12.3);
  //返回: 12.300
  
  s := FormatFloat('#,#.#',1234567);
  //返回: 1,234,567
  s := FormatFloat('0,0.0',1234567);
  //返回: 1,234,567.0
  
  s := FormatFloat('0.00E+0',1234567);
  //返回: 1.23E+6
  s := FormatFloat('0.00E+00',1234567);
  //返回: 1.23E+06
  
  //在科学计数法中使用 # 好像不合适?
  
  ShowMessage(s);
end;


07
2013
01

Delphi中Create(nil),Create(self),Create(Application)区别

Create(nil);//需要自己释放  
Create(Self);//当Self释放时自动触发释放
Create(Application);//当Application释放时自动释放

«1»