1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lrj2005 2005-10-06
- 打赏
- 举报
太感谢了！！！
aiirii 2005-10-06
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
begin
LockWorkStation;
end;
function LockWS: Boolean;
type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 <> 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation <> nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;
begin
LockWorkStation;
end;
function LockWS: Boolean;
type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 <> 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation <> nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;
