如题!
解决方案 »
- 从数据库中提取数据
- 利用ADO控件缓冲更新数据问题,
- .AddChild错误
- 高手前来接分。。。数据库读取图片问题。 200分!
- 问一个难题:因特网机子通过一服务器取局域网中一msSQL数据的方法,解决后加分
- activex form编的程序,如果快速复制一份,并且根据不同的修改分别使用,
- 怎么在memo中删除所有的空格,回车,然后在句号后面加回车?
- 那位师兄帮个忙:如何更改文件名呀?
- 程序运行中突然自动退出(寻求捕获所有异常的方法)
- 急寻高手,如何通过INTERNET来进行三层软件开发?
- 用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;