Subject: | Re: Jan - SendKeys DLL problem
| Date: | 30 Jul 2022 08:14:38 -0400
| From: | "Peter Vaessen" <peter.vaessen@xs4all.nl>
| Newsgroups: | pnews.paradox-programming
|
Hi all,
Does anyone still uses this Jan his fix and if so, can anyone send it to
me because it does not seem available anymore as download.
It would help me a lot!
Kind regards,
Peter
Robert Molyneux <ibisnestremovespampart@iinet.net.au> wrote:
>Hi Jan,
>
>I ended up making a new library Windoz that will contain DLLs and
>Windows calls.
>
>I put your DLL into :PRIV: - thus do not need to worry about where it
>goes in various versions of Paradox.
>
>Tested with Pdox full and runtime versions on 32 and 64 bit.
>
>Works fine.
>
>Thanks very much.
>
>*******************************
>method MySendKeys() logical
>;
>; This handles the replacement for SendKeys
>;
>var
>
> methid string
>
>endvar
>
> methid = "MySendKeys"
>;
>; Use alt - Print Screen for active - top form.
>;
> try
> cmSendKeys("%{SNAPSHOT}", 0)
> sleep()
> return true
> onfail
> errorClear()
> endtry
>
> try
> Keybd_Event(VK_SNAPSHOT, 1, 0, 0)
> sleep()
> return true
> onfail
> errorClear()
> endtry
>
> try
> sendKeys("%{vk_SnapShot}", false)
> sleep()
> return true
> onfail
> errorclear()
> endtry
>
> return false
>
>endMethod
>
>*******************************
>
>
>
>
|