当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: 这其实是个很老的话题在这里写。
 

 

 ·delphi2005中文翻译    »显示摘要«
    摘要: delphi2005中文翻译 很多时候,我们都会要求自己去做些事情,但激情过去,很多为未完成的事情对到了一边。生活也愈加的无聊…… 我也常常这样,但内心实在不想这样下去,所以用下面的方式鼓励自己,希望这次不会轻易放弃……++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++......
 ·第3部分 编译文件(第8页)    »显示摘要«
    摘要: 第3部分 编译文件(第8页) 一个简单的控制台应用程序下面的程序是一个简单的控制台程序,你能在命令行中编译和运行。program greeting;{$apptype console}var mymessage string;beginmymessage := hello world!;writeln(mymessage);end.第一行说明程序名为greeting。{$......


Delphi Shell

这其实是个很老的话题在这里写.实在有点没意义.不过还是写写.因为

的参数.因为我打算做个面向对象封装.避开不必要参数方面下次调用. 【程序编程相关:多层数据库开发九:查询数据库

shellexecute总还是在经常用到.而且平率比较高.但我不打算重点讲shell 【推荐阅读:多层数据库开发十三:剖析几个数据库应用程

的参数.然后是消息.shellexecute主要实施的操作是.打开.查找.打印. 【扩展信息:多层数据库开发一:设计数据库应用程序

与其它界面api的参数差不多句柄.要实行的操作.程序名.后面两个不重要

因此我打算做三个函数分别封装其具体.由于要打开不同的应用程序重点

是句柄与程序名.所以两个属性.就是它们了.然后我打算加入一个其他功能

就是关闭应用程序.其实就是对要关闭的应用程序发送wm_close消息.

ok我们就来封装.

//这里自定义一个异常以方便我们使用

unit myshell;

interface

uses

  windows,  sysutils, shellapi;//shellexecute就定义在shellapi单元中

type

    tshellexception = class (exception)

end;

type

  tshellexecute = class

  private

    fexename : string ;

    fhandle  : hwnd;

    procedure setexename(value : string);

    procedure sethandle (value : hwnd);

  public

   constructor create(h : hwnd;prgname : string );

   property  exename : string read fexename write setexename;


...   下一页
    摘要: 在access中建一个备注字段,名为binary。主键id。有一timage已装载的图片。memstream为tmemorystream;p为byte存:self.image1.picture.bitmap.savetostream(memstream);memstream.seek(0,sofrombeginning ); while memstream.position<memstre......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE