OpenEuphoria

Re: serialize software

• Posted by spent memory <spent.memory at gmail.com> Nov 18, 2004
• 506 views

try this :

include win32lib.ew

constant good2go = "your user name",   -- case sensitive
              win = create(Window,"",0,Center,Center,500,500,0)

sequence lUser
lUser  = getUserName()

procedure check_good2go(object a, object b, object c)

               if equal(lUser,good2go) = 0 then closeApp() end if

end procedure
setHandler(win,w32HActivate,routine_id("check_good2go"))

WinMain(win,Normal)

On Thu, 18 Nov 2004 07:30:53 -0800, George Walters
<guest at rapideuphoria.com> wrote:
> 
> posted by: George Walters <gwalters at sc.rr.com>
> 
> I mean that it would only run on that specific computer. Perhaps tied to the
> nic or hard drive id or some other id of the comoputer.
> 
> 
> 
> 
>