ShExitWindowsDlg causes GPF on Vista

[notengo]

Dionisis,
> Yes your code shuts down successfully windows vista without displaying
> the shutdown dialog
> But for the future, please try to find out a more "gently" way to
> displaying this dialog.
I found the way but it still has a little problem: it needs to set a
timeout value in order to work properly.
Use the new OBJ attached and replace the old code with this new one.
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
XA_FUNC( XA_VISTASHUTDOWN )
{
hb_retl( VistaShutdown( hb_parnl( 1 ) ) );
}
#pragma ENDDUMP
To test it just call: XA_VistaShutdown( <nTimeoutSeconds> ) from your
application and let me know if it works in order to include it in the next
Xailer release.
> many many thanks
You are welcome !
Regards,
José Lalí­n
--

[notengo]

Dionisis,
> Yes your code shuts down successfully windows vista without displaying
> the shutdown dialog
> But for the future, please try to find out a more "gently" way to
> displaying this dialog.
I found the way but it still has a little problem: it needs to set a
timeout value in order to work properly.
Use the new OBJ attached and replace the old code with this new one.
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
XA_FUNC( XA_VISTASHUTDOWN )
{
hb_retl( VistaShutdown( hb_parnl( 1 ) ) );
}
#pragma ENDDUMP
To test it just call: XA_VistaShutdown( <nTimeoutSeconds> ) from your
application and let me know if it works in order to include it in the next
Xailer release.
> many many thanks
You are welcome !
Regards,
José Lalí­n
--

[Dionisis Divaris]

Hello 'guru' Josi
Works fine, in the settled time pc shut's down.
The dialog issue may ovecamed with a simple MsgYesNoCancel() MessageBox i
think.
The only pending issue is the following warning durring compilation:
Warning W8065 VPCI.prg 1458: Call to function 'VistaShutdown' with no
prototype in function HB_FUN_XA_VISTASHUTDOWN
1 Warnings, 0 Errors
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:47094692$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> Yes your code shuts down successfully windows vista without displaying
>> the shutdown dialog
>> But for the future, please try to find out a more "gently" way to
>> displaying this dialog.
>
> I found the way but it still has a little problem: it needs to set a
> timeout value in order to work properly.
>
> Use the new OBJ attached and replace the old code with this new one.
>
> #pragma BEGINDUMP
>
> #include <windows.h>
> #include <xailer.h>
>
> XA_FUNC( XA_VISTASHUTDOWN )
> {
> hb_retl( VistaShutdown( hb_parnl( 1 ) ) );
> }
>
> #pragma ENDDUMP
>
> To test it just call: XA_VistaShutdown( <nTimeoutSeconds> ) from your
> application and let me know if it works in order to include it in the next
> Xailer release.
>
>> many many thanks
>
> You are welcome !
>
> Regards,
> José Lalí­n
>

[Xailer]

Hello 'guru' Josi
Works fine, in the settled time pc shut's down.
The dialog issue may ovecamed with a simple MsgYesNoCancel() MessageBox i
think.
The only pending issue is the following warning durring compilation:
Warning W8065 VPCI.prg 1458: Call to function 'VistaShutdown' with no
prototype in function HB_FUN_XA_VISTASHUTDOWN
1 Warnings, 0 Errors
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:47094692$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> Yes your code shuts down successfully windows vista without displaying
>> the shutdown dialog
>> But for the future, please try to find out a more "gently" way to
>> displaying this dialog.
>
> I found the way but it still has a little problem: it needs to set a
> timeout value in order to work properly.
>
> Use the new OBJ attached and replace the old code with this new one.
>
> #pragma BEGINDUMP
>
> #include <windows.h>
> #include <xailer.h>
>
> XA_FUNC( XA_VISTASHUTDOWN )
> {
> hb_retl( VistaShutdown( hb_parnl( 1 ) ) );
> }
>
> #pragma ENDDUMP
>
> To test it just call: XA_VistaShutdown( <nTimeoutSeconds> ) from your
> application and let me know if it works in order to include it in the next
> Xailer release.
>
>> many many thanks
>
> You are welcome !
>
> Regards,
> José Lalí­n
>

[notengo]

Dionisis,
> Hello 'guru' Josi
<Blush>
> Works fine, in the settled time pc shut's down.
Ok.
> The dialog issue may ovecamed with a simple MsgYesNoCancel() MessageBox
> i think.
Please, share with me any news you have on this subject so I can enhance
the function.
> The only pending issue is the following warning durring compilation:
Just add this line before the XA_FUNC declaration:
extern BOOL VistaShutdown( DWORD dwTime );
And the warning should dissapear.
Regards,
José Lalí­n

[notengo]

Dionisis,
> Hello 'guru' Josi
<Blush>
> Works fine, in the settled time pc shut's down.
Ok.
> The dialog issue may ovecamed with a simple MsgYesNoCancel() MessageBox
> i think.
Please, share with me any news you have on this subject so I can enhance
the function.
> The only pending issue is the following warning durring compilation:
Just add this line before the XA_FUNC declaration:
extern BOOL VistaShutdown( DWORD dwTime );
And the warning should dissapear.
Regards,
José Lalí­n

[Dionisis Divaris]

GoodMorning Jose
This is what i am using in my programs from yesterday, according to your
code:
FUNCTION ShutDown()
IF Os_IsWinVISTA()
IF MsgYesNo (;
" Do you want to Shutdown your computer?","Warning: Computer
Shutdown.")
XA_VISTASHUTDOWN(15)
ELSE
RETURN NIL
ENDIF
ELSE
ShExitWindowsDlg()
ENDIF
RETURN NIL
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:47095ad4$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> Hello 'guru' Josi
>
> <Blush>
>
>> Works fine, in the settled time pc shut's down.
>
> Ok.
>
>> The dialog issue may ovecamed with a simple MsgYesNoCancel() MessageBox
>> i think.
>
> Please, share with me any news you have on this subject so I can enhance
> the function.
>
>> The only pending issue is the following warning durring compilation:
>
> Just add this line before the XA_FUNC declaration:
>
> extern BOOL VistaShutdown( DWORD dwTime );
>
> And the warning should dissapear.
>
> Regards,
> José Lalí­n

[Xailer]

GoodMorning Jose
This is what i am using in my programs from yesterday, according to your
code:
FUNCTION ShutDown()
IF Os_IsWinVISTA()
IF MsgYesNo (;
" Do you want to Shutdown your computer?","Warning: Computer
Shutdown.")
XA_VISTASHUTDOWN(15)
ELSE
RETURN NIL
ENDIF
ELSE
ShExitWindowsDlg()
ENDIF
RETURN NIL
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:47095ad4$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> Hello 'guru' Josi
>
> <Blush>
>
>> Works fine, in the settled time pc shut's down.
>
> Ok.
>
>> The dialog issue may ovecamed with a simple MsgYesNoCancel() MessageBox
>> i think.
>
> Please, share with me any news you have on this subject so I can enhance
> the function.
>
>> The only pending issue is the following warning durring compilation:
>
> Just add this line before the XA_FUNC declaration:
>
> extern BOOL VistaShutdown( DWORD dwTime );
>
> And the warning should dissapear.
>
> Regards,
> José Lalí­n

[notengo]

Dionisis,
> This is what i am using in my programs from yesterday, according to your
> code:
Ok. I did it the same way.
I wrote a small component with two methods:
* Shutdown(), to shutdown the system without dialog box.
* ShutdownDlg( [<nSeconds>] ), to show the dialog box.
With this approach you don't need to check what platform are you running
on, because the component do the checks itself and you will have a better
readable code, ie:
WITH OBJECT TShutdown():New()
:ShutdownDlg()
END
I will finish it today and will send it to you to test it. Once we got it
working I will write an article in our blog and will post it there.
Regards,
José Lalí­n

[notengo]

Dionisis,
> This is what i am using in my programs from yesterday, according to your
> code:
Ok. I did it the same way.
I wrote a small component with two methods:
* Shutdown(), to shutdown the system without dialog box.
* ShutdownDlg( [<nSeconds>] ), to show the dialog box.
With this approach you don't need to check what platform are you running
on, because the component do the checks itself and you will have a better
readable code, ie:
WITH OBJECT TShutdown():New()
:ShutdownDlg()
END
I will finish it today and will send it to you to test it. Once we got it
working I will write an article in our blog and will post it there.
Regards,
José Lalí­n

[notengo]

Dionisis,
just a question: which version of Xailer are you using ?
Regards,
José Lalí­n

[notengo]

Dionisis,
just a question: which version of Xailer are you using ?
Regards,
José Lalí­n

[Dionisis Divaris]

ok Josi
I will wating for the final test!!!!!!!!!!!!!!
Best Regards
Dionisis
"Jose Lalin" <notengo@correo.com> wrote in message
news:470b4bcf$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> This is what i am using in my programs from yesterday, according to your
>> code:
>
> Ok. I did it the same way.
>
> I wrote a small component with two methods:
>
> * Shutdown(), to shutdown the system without dialog box.
> * ShutdownDlg( [<nSeconds>] ), to show the dialog box.
>
> With this approach you don't need to check what platform are you running
> on, because the component do the checks itself and you will have a better
> readable code, ie:
>
> WITH OBJECT TShutdown():New()
> :ShutdownDlg()
> END
>
> I will finish it today and will send it to you to test it. Once we got it
> working I will write an article in our blog and will post it there.
>
> Regards,
> Jose Lalin

[Dionisis Divaris]

ok Josi
I will wating for the final test!!!!!!!!!!!!!!
Best Regards
Dionisis
"Jose Lalin" <notengo@correo.com> wrote in message
news:470b4bcf$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> This is what i am using in my programs from yesterday, according to your
>> code:
>
> Ok. I did it the same way.
>
> I wrote a small component with two methods:
>
> * Shutdown(), to shutdown the system without dialog box.
> * ShutdownDlg( [<nSeconds>] ), to show the dialog box.
>
> With this approach you don't need to check what platform are you running
> on, because the component do the checks itself and you will have a better
> readable code, ie:
>
> WITH OBJECT TShutdown():New()
> :ShutdownDlg()
> END
>
> I will finish it today and will send it to you to test it. Once we got it
> working I will write an article in our blog and will post it there.
>
> Regards,
> Jose Lalin

[Dionisis Divaris]

1.66 for Production and 1.75 for testing (for awhike i hope)
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:470d423e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
> just a question: which version of Xailer are you using ?
>
> Regards,
> José Lalí­n

[Xailer]

1.66 for Production and 1.75 for testing (for awhike i hope)
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:470d423e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
> just a question: which version of Xailer are you using ?
>
> Regards,
> José Lalí­n

[notengo]

Dionisis,
> 1.66 for Production and 1.75 for testing (for awhike i hope)
Ok, I am working with 1.75/CVS so I attached the lib for 1.75 version. By
Monday I will try to send the 1.66 one.
Add it to your project and remember to delete the OBJ from previous tests
and remove the code I wrote in previous messages. To use it just write:
WITH OBJECT TShuwdown():New()
:Shutdown() // Does direct shutdown
//:ShutdownDlg( nSeconds ) // Shows the dialog
END
Regards,
José Lalí­n
--

[notengo]

Dionisis,
> 1.66 for Production and 1.75 for testing (for awhike i hope)
Ok, I am working with 1.75/CVS so I attached the lib for 1.75 version. By
Monday I will try to send the 1.66 one.
Add it to your project and remember to delete the OBJ from previous tests
and remove the code I wrote in previous messages. To use it just write:
WITH OBJECT TShuwdown():New()
:Shutdown() // Does direct shutdown
//:ShutdownDlg( nSeconds ) // Shows the dialog
END
Regards,
José Lalí­n
--

[Dionisis Divaris]

Hello Josi
Trying to compiling the TshutDown(), getting errors :
Compiling: test_shutDown.prg...
Compiling: Form1.prg...
Linking: test_shutDown.exe...
Error: Unresolved external '_HB_FUN_TSHUWDOWN' referenced from
C:XAILER175TEST PROJECTSOBJFORM1.OBJ
0 Warnings, 1 Errors
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:470f500c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> 1.66 for Production and 1.75 for testing (for awhike i hope)
>
> Ok, I am working with 1.75/CVS so I attached the lib for 1.75 version. By
> Monday I will try to send the 1.66 one.
>
> Add it to your project and remember to delete the OBJ from previous tests
> and remove the code I wrote in previous messages. To use it just write:
>
> WITH OBJECT TShuwdown():New()
> :Shutdown() // Does direct shutdown
> //:ShutdownDlg( nSeconds ) // Shows the dialog
> END
>
> Regards,
> José Lalí­n
>

[Xailer]

Hello Josi
Trying to compiling the TshutDown(), getting errors :
Compiling: test_shutDown.prg...
Compiling: Form1.prg...
Linking: test_shutDown.exe...
Error: Unresolved external '_HB_FUN_TSHUWDOWN' referenced from
C:XAILER175TEST PROJECTSOBJFORM1.OBJ
0 Warnings, 1 Errors
Regards
Dionisis
Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
news:470f500c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> 1.66 for Production and 1.75 for testing (for awhike i hope)
>
> Ok, I am working with 1.75/CVS so I attached the lib for 1.75 version. By
> Monday I will try to send the 1.66 one.
>
> Add it to your project and remember to delete the OBJ from previous tests
> and remove the code I wrote in previous messages. To use it just write:
>
> WITH OBJECT TShuwdown():New()
> :Shutdown() // Does direct shutdown
> //:ShutdownDlg( nSeconds ) // Shows the dialog
> END
>
> Regards,
> José Lalí­n
>

[Dionisis Divaris]

Josi
The correct call is:
With Object TSysShutDown():New()
:ShutDown() //For Direct ShutDown and
:ShutDownDlg(nSeconds) // For Dialog ShutDown
END
But i can not still run the test, since the 1.75 debuger issues ( for
awhile i hope)!!!!
Best Regards
Dionisis
Ο "Dionisis Divaris" <info@sgs-soft.gr> έγραψε στο μήνυμα
news:470fbf16$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hello Josi
> Trying to compiling the TshutDown(), getting errors :
>
> Compiling: test_shutDown.prg...
> Compiling: Form1.prg...
> Linking: test_shutDown.exe...
> Error: Unresolved external '_HB_FUN_TSHUWDOWN' referenced from
> C:XAILER175TEST PROJECTSOBJFORM1.OBJ
> 0 Warnings, 1 Errors
>
> Regards
> Dionisis
>
> Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
> news:470f500c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>
>> Dionisis,
>>
>>> 1.66 for Production and 1.75 for testing (for awhike i hope)
>>
>> Ok, I am working with 1.75/CVS so I attached the lib for 1.75 version. By
>> Monday I will try to send the 1.66 one.
>>
>> Add it to your project and remember to delete the OBJ from previous tests
>> and remove the code I wrote in previous messages. To use it just write:
>>
>> WITH OBJECT TShuwdown():New()
>> :Shutdown() // Does direct shutdown
>> //:ShutdownDlg( nSeconds ) // Shows the dialog
>> END
>>
>> Regards,
>> José Lalí­n
>>
>

[Xailer]

Josi
The correct call is:
With Object TSysShutDown():New()
:ShutDown() //For Direct ShutDown and
:ShutDownDlg(nSeconds) // For Dialog ShutDown
END
But i can not still run the test, since the 1.75 debuger issues ( for
awhile i hope)!!!!
Best Regards
Dionisis
Ο "Dionisis Divaris" <info@sgs-soft.gr> έγραψε στο μήνυμα
news:470fbf16$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hello Josi
> Trying to compiling the TshutDown(), getting errors :
>
> Compiling: test_shutDown.prg...
> Compiling: Form1.prg...
> Linking: test_shutDown.exe...
> Error: Unresolved external '_HB_FUN_TSHUWDOWN' referenced from
> C:XAILER175TEST PROJECTSOBJFORM1.OBJ
> 0 Warnings, 1 Errors
>
> Regards
> Dionisis
>
> Ο "José Lalí­n" <notengo@correo.com> έγραψε στο μήνυμα
> news:470f500c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>
>> Dionisis,
>>
>>> 1.66 for Production and 1.75 for testing (for awhike i hope)
>>
>> Ok, I am working with 1.75/CVS so I attached the lib for 1.75 version. By
>> Monday I will try to send the 1.66 one.
>>
>> Add it to your project and remember to delete the OBJ from previous tests
>> and remove the code I wrote in previous messages. To use it just write:
>>
>> WITH OBJECT TShuwdown():New()
>> :Shutdown() // Does direct shutdown
>> //:ShutdownDlg( nSeconds ) // Shows the dialog
>> END
>>
>> Regards,
>> José Lalí­n
>>
>