怎么通过编程禁止别的程序对电脑锁屏？

怎么自动将电脑的锁屏功能禁用，并且当程序退出的时候恢复？怎么通过编程禁止别的程序对电脑锁屏？

http://www.jb51.net/article/76508.htm

应该用钩子吧，我也想知道，准来说一下

以下Delphi 语言，其它语言参考:

s: Boolean;
type TLockWorkStation =function: Boolean;
var hUser32: HMODULE;

LockWorkStation: TLockWorkStation;
begin
Result := False;
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 <> 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation <> nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;