[fpc-pascal]version differences

[Pápai András]

Hi!
I recently upgraded fpc on my computer (1.0.4 -> 1.0.10). Now some programs
doen't work correctly. No problems with compilig, no run-time errors, but
the program doesn't work like before. (Win32 platform).

I attached a source (poweroff.pas). Compiling with 1.0.4, it works as I
want.
With 1.0.10 (and 1.0.6) some API functions return an error.
LookupPrivilegeValue: 203, "ENVVAR_NOT_FOUND"
AdjustTokenPrivileges: 1300, "NOT_ALL_ASSIGNED"

I couldn't find the reason in the docs.
Can someone help me, please?

Thanks!
Andras

 <<poweroff.pas>> 


Ezen uzenet es annak barmely csatolt anyaga bizalmas, jogi vedelem alatt all, a nyilvanos kozlestol vedett.
Az uzenetet kizarolag a cimzett, illetve az altala meghatalmazottak hasznalhatjak fel. Ha On nem az uzenet cimzettje, ugy kerjuk, hogy telefonon, vagy e-mail-ben ertesitse errol az uzenet kuldojet es torolje az uzenetet, 
valamint annak osszes csatolt mellekletet a rendszerebol. Ha On nem az uzenet cimzettje, abban az esetben tilos az 
uzenetet vagy annak barmely csatolt mellekletet lemasolnia, elmentenie, az uzenet tartalmat barkivel kozolnie 
vagy azzal visszaelnie.


This message and any attachment are confidential and are legally privileged. It is intended solely for the use of 
the individual or entity to whom it is addressed and others authorised to receive it. If you are not the intended 
recipient, please telephone or email the sender and delete this message and any attachment from your system. 
Please note that any dissemination, distribution, copying or use of or reliance upon the information contained in 
and transmitted with this e-mail by or to anyone other than the recipient designated above by the sender is 
unauthorised and strictly prohibited.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: poweroff.pas
Type: application/octet-stream
Size: 647 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20040319/47930657/attachment.obj>