From: "Jacobsen Morten" <morten.jacobsen@fellesdata.no>
To: "'Earl F. Glynn'"
Subject: I solved parts of it - here is the sollution
Date: Tuesday, February 01, 2000 5:45 AM

Hi Earl.

I figured out how to disable printscreen with ctrl + alt combinations.
And if you're interested, here's how I did it....

const
  KC = 104;
  KC_ALT = 105;
  KC_CTRL = 106;

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if (msg.HotKey = KC_ALT) then
    Exit;
  if (msg.HotKey = KC_CTRL) then
    Exit;
  if (msg.HotKey = KC) then
    Exit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  registerHotKey(Form1.handle, KC_ALT, MOD_ALT, VK_SNAPSHOT);
  RegisterHotKey(Form1.Handle, KC_CTRL, MOD_CONTROL, VK_SNAPSHOT);
  RegisterHotKey(Form1.Handle, KC, 0, VK_SNAPSHOT);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Form1.Handle, KC_ALT);
  UnRegisterHotKey(Form1.Handle, KC_CTRL);
  UnRegisterHotKey(Form1.Handle, KC);
end;


No screen dump is ever made..
But I still have the problem with paintshop, corel etc....
Don't quite know how to crack those.....

Well.. Just thought I'd mail it to you, just in case it was interesting for
U.

Thanx for the help yet again!

MOrten