小编Ase*_*oro的帖子

我用Delphi做过服务.每次我在该服务中调用另一个应用程序时,应用程序都不会运行.怎么了？

顺便说一下,我使用了shellexecute,shellopen或用cmd调用它.这些方法都不起作用.

这是我的代码:

    program roro_serv;

uses
  SvcMgr,
  Unit1 in 'Unit1.pas' {Service1: TService},
  ping in 'ping.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.

    unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ExtCtrls, DB, MemDS, DBAccess, MyAccess, Menus, forms, IniFiles,
  ComCtrls, wininet, Variants, shellapi,
  FileCtrl, ExtActns, StdCtrls, ShellCtrls;

type
  TService1 = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations } …

我想制作使用tform作为参数的dll,简单的计划是,如果该表单传递给dll,则包含组件名称的dll文件返回数组.

可以将tform作为参数传递吗？

我在运行时制作了按钮组件,我想要点击每个按钮执行独特的程序.

例如

exec('showmessage('+quotedstr('hello word')+');');

如何在delphi 7中执行字符串作为过程,如php中的eval或delphi xe3中的livebinding？