Mega Code Archive
How to lock the workstation
<![CDATA[
Title: How to lock the workstation
procedure TForm1.Button1Click(Sender: TObject);
begin
LockWorkStation;
end;
{ Loading LockWorkStation dynamically}
function LockWS: Boolean;
// by Thomas Stutz, SDC
type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin
// Here we import the function from USER32.DLL
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;
]]>