我的服务程序窗体上怎么不能输入任何东西？？

2005-06-09 04:45:05 131 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

超声波手势识别+串口通信实现无感切歌系统超声波测距是一种稳定、低延迟、环境鲁棒性强的物理距离感知技术，其原理基于声波在空气中的传播时间与距离的线性关系，具备不依赖光照、不受颜色材质影响、无隐私风险等工程优势。该技术常被用于工业液位检测、机器人避障及人机交互等场景，尤其适合构建低成本、高可靠性的边缘感知节点。结合串口通信协议与Windows API模拟输入，可绕过应用层接口限制，直接驱动GUI控件，实现跨软件兼容的硬件触发控制。本文即以酷我音乐盒为典型用例，详解如何利用HC-SR04与STC89C52构建端到端的‘挥手切歌’系统，覆盖从传感器滤波、阅读详情

我为我的服务程序做了个交互的窗体，
可是，窗体上所有的用来输入的控件都不能输入东西，但是checkbox，button等用鼠标操作的控件却行。
这是为什么？？

...全文

zabbix 监控EMC存储经过搜索，找到了脚本地址，该项目应该是模板原作者创建的，该项目也有zabbix模板，和上面的应该是相同的，我用的是上面的模板。./unity_get_state.py --api_ip='X.X.X.X' --api_port='443' --api_user='zabbix' --api_password='PASSWORD' --storage_name="zabbix web前端配置的主机名" --discovery。修改权限，给zabbix用户执行权限，模板调用时以zabbix用户执行。阅读详情

smilelhh

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

xiaoyaozgc 2005-06-11

打赏
举报

帮你顶

smilelhh 2005-06-10

打赏
举报

lovend 2005-06-09

打赏
举报

帮你顶

smilelhh 2005-06-09

打赏
举报

这是main.pas主文件
unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
TRsvrTransfer = class(TService)
procedure ServiceContinue(Sender: TService; var Continued: Boolean);
procedure ServiceExecute(Sender: TService);
procedure ServicePause(Sender: TService; var Paused: Boolean);
procedure ServiceShutdown(Sender: TService);
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;

var
RsvrTransfer: TRsvrTransfer;

implementation

uses Unit1;

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
RsvrTransfer.Controller(CtrlCode);
end;

function TRsvrTransfer.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;

procedure TRsvrTransfer.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;
end;

procedure TRsvrTransfer.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;
end;

procedure TRsvrTransfer.ServicePause(Sender: TService;
var Paused: Boolean);
begin
Paused := True;
end;

procedure TRsvrTransfer.ServiceShutdown(Sender: TService);
begin
gbCanClose := true;
MainForm.Free;
Status := csStopped;
ReportStatus();
end;

procedure TRsvrTransfer.ServiceStart(Sender: TService;
var Started: Boolean);
begin
Started := True;
Svcmgr.Application.CreateForm(TMainForm, MainForm);
gbCanClose := False;
MainForm.Hide;
end;

procedure TRsvrTransfer.ServiceStop(Sender: TService;
var Stopped: Boolean);
begin
Stopped := True;
gbCanClose := True;
MainForm.Free;
end;

end.
窗体文件：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
CnClasses, CnTrayIcon, Menus, StdCtrls, ExtCtrls, CnEdit,
Mask, CnSpin, IdUDPBase, IdUDPClient, IdTrivialFTP, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient;

type
TMainForm = class(TForm)
CnTrayIcon1: TCnTrayIcon;
pm1: TPopupMenu;
j1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
pnl1: TPanel;
pnl2: TPanel;
pnl3: TPanel;
pnl4: TPanel;
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
chk1: TCheckBox;
lbl4: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
chk2: TCheckBox;
chk3: TCheckBox;
chk4: TCheckBox;
chk5: TCheckBox;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
EdtSavePath1: TCnEdit;
SpnEdtInteral: TCnSpinEdit;
lbl8: TLabel;
IdTCPClient1: TIdTCPClient;
IdTrivialFTP1: TIdTrivialFTP;
lbl9: TLabel;
lbl10: TLabel;
lbl11: TLabel;
lbl12: TLabel;
edtHost: TEdit;
edtPort: TEdit;
edtFtpUser: TEdit;
edtFtpPass: TEdit;
edtFtpDir: TEdit;
lbl13: TLabel;
lbl14: TLabel;
lbl15: TLabel;
lbl16: TLabel;
edtDbServer: TEdit;
edtDbUser: TEdit;
edtDbPass: TEdit;
lbl17: TLabel;
lbl18: TLabel;
edtEmail: TEdit;
edtEmailPass: TEdit;
procedure j1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;
gbCanClose: Boolean;

implementation

uses main;

{$R *.dfm}

procedure TMainForm.j1Click(Sender: TObject);
begin
self.CnTrayIcon1.ShowApplication;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
gbCanClose := gbCanClose;
if not gbCanClose then
begin
self.CnTrayIcon1.HideApplication;
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
//FormStyle := fsStayOnTop; {窗口最前}
//SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); {不在任务栏显示}
gbCanClose := False;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
WinExec('net stop RsvrTransfer',SW_HIDE);
end;

procedure TMainForm.btn1Click(Sender: TObject);
begin
self.CnTrayIcon1.HideApplication;
end;

procedure TMainForm.btn3Click(Sender: TObject);
begin
WinExec('net pause RsvrTransfer',SW_HIDE);
self.btn2.Enabled := true;
self.btn3.Enabled := false;
end;

procedure TMainForm.btn2Click(Sender: TObject);
begin
WinExec('net continue RsvrTransfer',SW_HIDE);
self.btn2.Enabled := false;
self.btn3.Enabled := true;
end;

end.

smilelhh 2005-06-09

打赏
举报

服务程序一般是不用交互，可我是想通过一个交互界面进行一些程序的设置工作呀。

程序很普通，就是一个窗体上放了一些checkbox，button,edit而已，checkbox,button可以交互，但edit却不能输入任何东西？输入焦点什么的都有。
怪事？

ly_liuyang 2005-06-09

打赏
举报

服务程序本来就不要交互的！
你可以设置允许交互，但不推荐，作为服务是不需要直接交互的
Windows下这么多服务程序，那个允许交互了？

http://lysoft.7u7.net

Kshape 2005-06-09

打赏
举报

把代码贴出来
看看窗体在Show得时候有异常么?

smilelhh 2005-06-09

打赏
举报

难道不能交互吗？

我的服务程序窗体上怎么不能输入任何东西？？

相关推荐