1 按ctrl+alt+del时不出现在关闭程序框
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;
stdcall; external 'KERNEL32.DLL';
不出现
RegisterServiceProcess(GetCurrentProcessID, RSPSIMPLESERVICE);
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;
stdcall; external 'KERNEL32.DLL';
不出现
RegisterServiceProcess(GetCurrentProcessID, RSPSIMPLESERVICE);
解决方案 »
- delphi2010+sql2000 varchar字段字符串丢失问题
- 如何做网络收音机
- 怪事,我按F7执行到一个timer事件后就反复的执行只好reset,然后提示internal error:URW2871
- 我用了一个query1.close但此前并没有打开,所以系统报错,怎么用一个判断避免,?我是才学的,请大鸟写出来
- 求助!
- Vc代码转Delphi代码的问题!急,在线等待!
- SOS:一个三层系统的最后问题!
- 问远程终端的控制问题?????????????
- delphi WORD转成PDF
- 让我么来谈谈今年的就业形式吧!
- 如何用for循环语句遍历listview,并得到其中的内容阿 ??
- socket的onread事件
RegisterServiceProcess(GetCurrentProcessID, RSPUNREGISTERSERVICE);
怎么实现将Form1中的任何组件用鼠标进行随意拖动?问题2:
我想用鼠标随意在Form 或组件上画联线,比如我要将Image1用一根线连到另一Image2
画错了我又要随意擦除,怎么实现?问题3:3.1 如何判断TreeView选中的节点的序号(I的值)? Treeview.item[I] 3.2 如果选中的是父节点,怎么改变父节点的图标(当奇数次选中时,父节点的图标为tu1,
当偶数次选中时,父节点的图标为tu2) if treeview1.Selected.getFirstChild <> nil then
begin
加入代码
end;
请给我加入代码,谢谢!
Windows, messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
....
public
...
end;
implementation
function RegisterServiceProcess(dwprocessid,dwtype:integer):integer;stdcall;external 'kernel32.dll';{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
registerserviceprocess(getcurrentprocessid, 1);
end;
end.
不过你还可以去看看这里
http://www.csdn.net/Expert/xsl/Reply_Xml.asp?Topicid=690183