如题!
解决方案 »
- delphi里用spcomm发短信,总是返回ERROR
- 调用DLL中的窗体,怎样动态创建唯一窗体?
- 高手帮帮忙
- 有检查Delphi程序内存泄漏的工具吗?
- 有女朋友了,散分,但是还有问题请教
- 在那里可以下载到win2000 server的‘终端管理客户端’??(在线)
- ※※※※※※※ WindowsXP无法安装软件 Why? ※※※※※※※
- d7vcl.hlp 有没有中文版,那里有下载?我baidu.google 搜了好长时间, 都没有,小弟E文不好,谢谢。
- 请问关于getlogicaldrivestrings的api用法
- TEdit的简单问题,请帮帮忙!
- 用FastReport做如下报表如何做?有例子的更好!进者有分!
- 请问各位大虾,怎样可以得到局域网内多有开启的机器的名称呀
procedure TTestForm.BitBtn1Click(Sender: TObject);
var
Temp: Integer;
begin
SystemParametersInfo(SPI_ScreenSaverRunning,1,@Temp,0);//屏蔽
end;procedure TTestForm.BitBtn2Click(Sender: TObject);
var
Temp: Integer;
begin
SystemParametersInfo(SPI_ScreenSaverRunning,0,@Temp,0);//恢复
end;2、用键盘低层Hook:
function LowLevelKeyboardProc(nCode:integer;WParam:WPARAM;LParam:LPARAM):LRESULT;stdcall;
type
KBDLLHOOKSTRUCT=record
vkCode:DWORD;
scanCode:DWORD;
flags:DWORD;
time:DWord;
dwExtraInfo:dword;
end;
var
fFlag:BOOL;
p:^KBDLLHOOKSTRUCT;
begin
result:=0;
fFlag := false;
p:=Pointer(LPARAM);
if (ncode=HC_ACTION) then
begin
case wparam of
WM_KEYDOWN,
WM_SYSKEYDOWN,
WM_KEYUP,
WM_SYSKEYUP:
fFlag :=(p.vkCode = VK_Lwin) or (p.vkCode = VK_Rwin)or (p.vkCode = VK_apps);
end;
end;
if fFlag = true then
Result:=1;
if ncode <> 0 then
Result := CallNextHookEX(0,ncode,wparam,lparam);
end;procedure TForm1.Button1Click(Sender: TObject);
const
WH_KEYBOARD_LL=13;
begin
setwindowshookexw(WH_KEYBOARD_LL,LowlevelKeyboardproc,hinstance,0);
end;