Xailer & OZ Software

Dionisis,
> I link the libary you post here in this thred and not the one from the blog.
> But the result is the same. I see only the StopMessageBox with the Error
> Message. Those methods are running on XP too? Or are running only in
> Vista.
Remove the lib and add the attached OBJ and let me know.
Best regards,
José Lalí­n
--

Dionisis,
> I link the libary you post here in this thred and not the one from the blog.
> But the result is the same. I see only the StopMessageBox with the Error
> Message. Those methods are running on XP too? Or are running only in
> Vista.
Remove the lib and add the attached OBJ and let me know.
Best regards,
José Lalí­n
--

Josi
Same status and withe the OBJ file only. The Lib file has removed from the
project. Are those Methods for Windows XP or only for Windows VISTA?
Best Regards
Dionisis
? "José Lalín" <notengo@correo.com> ?????? ??? ??????
news:489efa2d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> I link the libary you post here in this thred and not the one from the
>> blog.
>> But the result is the same. I see only the StopMessageBox with the Error
>> Message. Those methods are running on XP too? Or are running only in
>> Vista.
>
> Remove the lib and add the attached OBJ and let me know.
>
> Best regards,
> José Lalín
>

Josi
Same status and withe the OBJ file only. The Lib file has removed from the
project. Are those Methods for Windows XP or only for Windows VISTA?
Best Regards
Dionisis
? "José Lalín" <notengo@correo.com> ?????? ??? ??????
news:489efa2d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Dionisis,
>
>> I link the libary you post here in this thred and not the one from the
>> blog.
>> But the result is the same. I see only the StopMessageBox with the Error
>> Message. Those methods are running on XP too? Or are running only in
>> Vista.
>
> Remove the lib and add the attached OBJ and let me know.
>
> Best regards,
> José Lalín
>

Dionisis,
> Same status and withe the OBJ file only. The Lib file has removed from the
> project. Are those Methods for Windows XP or only for Windows VISTA?
It is for all windows versions.
BTW, did you try to call Reboot() or Shutdown() in this version ?
Best regards,
José Lalí­n

Dionisis,
> Same status and withe the OBJ file only. The Lib file has removed from the
> project. Are those Methods for Windows XP or only for Windows VISTA?
It is for all windows versions.
BTW, did you try to call Reboot() or Shutdown() in this version ?
Best regards,
José Lalí­n

Josi
Every call to any method of TsysShutDown component cause the same Acess
Violation Error.
TIA
Dionisis
? "José Lalín" <notengo@correo.com> ?????? ??? ??????
news:48a01e00$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
> Dionisis,
>
> > Same status and withe the OBJ file only. The Lib file has removed from
> > the
> > project. Are those Methods for Windows XP or only for Windows VISTA?
>
> It is for all windows versions.
>
> BTW, did you try to call Reboot() or Shutdown() in this version ?
>
> Best regards,
> José Lalín

Josi
Every call to any method of TsysShutDown component cause the same Acess
Violation Error.
TIA
Dionisis
? "José Lalín" <notengo@correo.com> ?????? ??? ??????
news:48a01e00$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
> Dionisis,
>
> > Same status and withe the OBJ file only. The Lib file has removed from
> > the
> > project. Are those Methods for Windows XP or only for Windows VISTA?
>
> It is for all windows versions.
>
> BTW, did you try to call Reboot() or Shutdown() in this version ?
>
> Best regards,
> José Lalín

Dionisis,
> Every call to any method of TsysShutDown component cause the same Acess
> Violation Error.
I am really interested to know what's happening there ...
Make this simple test:
WITH OBJECT TSysShutDown():Create()
:Execute( 0 )
END
And let me know.
Best regards,
José Lalí­n

Dionisis,
> Every call to any method of TsysShutDown component cause the same Acess
> Violation Error.
I am really interested to know what's happening there ...
Make this simple test:
WITH OBJECT TSysShutDown():Create()
:Execute( 0 )
END
And let me know.
Best regards,
José Lalí­n

José,
sorry it's always the same GPF on Vista too regardless of which method
calling.
:execute(0) too
Best regards
Ingo

José,
sorry it's always the same GPF on Vista too regardless of which method
calling.
:execute(0) too
Best regards
Ingo

Ingo,
repeat the test with the attached OBJ.
WITH OBJECT TSysShutDown():Create()
:Execute( 0 )
END
If it stills GPFs, run "harbour /build" and post here the result.
Regards,
José Lalí­n
--

Ingo,
repeat the test with the attached OBJ.
WITH OBJECT TSysShutDown():Create()
:Execute( 0 )
END
If it stills GPFs, run "harbour /build" and post here the result.
Regards,
José Lalí­n
--

Dionisis & Ingo,
Just of curiosity, this code work? .-
http://www2.xailer.com/cgi/dnewsweb.exe ... ticle&grou p=local.xailer.pro.es&item=12017
Procedure Main()
ProblemOut()
...
Return
#pragma BEGINDUMP
#include <windows.h>
#include "xailer.h"
/*****************************************
* FUERA PROBLEMAS
* -----------------
* ProblemOut()
******************************************/
XA_FUNC( PROBLEMOUT )
{
HANDLE hToken;
TOKEN_PRIVILEGES tkp;
if( OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken ) ){
LookupPrivilegeValue( NULL, SE_SHUTDOWN_NAME, &tkp.Privileges[0].Luid );
tkp.PrivilegeCount = 1;
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, FALSE, &tkp, 0, (PTOKEN_PRIVILEGES)NULL, 0 );
if( GetLastError() == ERROR_SUCCESS ){
InitiateSystemShutdown( NULL, NULL, 0, TRUE, FALSE );
}
}
}
#pragma ENDDUMP
Best regards,
Xavi
Ingo escribió:
> José,
> sorry it's always the same GPF on Vista too regardless of which method
> calling.
> :execute(0) too
>
> Best regards
>
> Ingo

Dionisis & Ingo,
Just of curiosity, this code work? .-
http://www2.xailer.com/cgi/dnewsweb.exe ... ticle&grou p=local.xailer.pro.es&item=12017
Procedure Main()
ProblemOut()
...
Return
#pragma BEGINDUMP
#include <windows.h>
#include "xailer.h"
/*****************************************
* FUERA PROBLEMAS
* -----------------
* ProblemOut()
******************************************/
XA_FUNC( PROBLEMOUT )
{
HANDLE hToken;
TOKEN_PRIVILEGES tkp;
if( OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken ) ){
LookupPrivilegeValue( NULL, SE_SHUTDOWN_NAME, &tkp.Privileges[0].Luid );
tkp.PrivilegeCount = 1;
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, FALSE, &tkp, 0, (PTOKEN_PRIVILEGES)NULL, 0 );
if( GetLastError() == ERROR_SUCCESS ){
InitiateSystemShutdown( NULL, NULL, 0, TRUE, FALSE );
}
}
}
#pragma ENDDUMP
Best regards,
Xavi
Ingo escribió:
> José,
> sorry it's always the same GPF on Vista too regardless of which method
> calling.
> :execute(0) too
>
> Best regards
>
> Ingo

José,
:Execute(0) shows a Debug-msgbox with "execute: start" and then the
Debug-message:
GPF (Code = c0000005):
Access violation
TSYSSHUTDOWN:EXECUTE (0)
TFORM1:BUTTON10CLICK (106)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (99)
(b)XCONTROL:XCONTROL (145)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (255)
TFORM1:WMCOMMAND (889)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (15)
The project code is attached.
Harbour /build shows:
Platform: Windows Windows Vista Professional 6.00.6001 Service Pack 1
Built on: Nov 30 2007 12:22:00
Last ChangeLog entry: 2007-11-06 21:55 UTC-0300 Eduardo Fernandes
<[email=modalsist@yah]modalsist@yah[/email]
oo.com.br>
ChangeLog CVS version: ChangeLog,v 1.5752.2.3
Harbour extensions: Yes
CA-Clipper 5.2e undocumented: Yes
CA-Clipper 5.2e strict compatibility: No
CA-Clipper 5.3x compatible extensions: Yes
Alaska Xbase++ compatible extensions: Yes
CA-Visual Objects compatible extensions: No
Multisoft Flagship compatible extensions: Yes
Microsoft FoxPro compatible extensions: No
dBase compatible extensions: No
Object file generation support: No
ANSI C usage: Non strict
C++ mode: Off
Compiler YACC debug mode: Off
Memory tracing and statistics: Off
Maximum symbol name length: 63
Best regards
Ingo
"José Lalí­n" <notengo@correo.com> schrieb im Newsbeitrag
news:[email=48a07f32@ozsrv2.ozlan.local...]48a07f32@ozsrv2.ozlan.local...[/email]
>
> Ingo,
>
> repeat the test with the attached OBJ.
>
> WITH OBJECT TSysShutDown():Create()
> :Execute( 0 )
> END
>
> If it stills GPFs, run "harbour /build" and post here the result.
>
> Regards,
> José Lalí­n
>
--

Attached files sdown.zip (5.1 KB)Â

José,
:Execute(0) shows a Debug-msgbox with "execute: start" and then the
Debug-message:
GPF (Code = c0000005):
Access violation
TSYSSHUTDOWN:EXECUTE (0)
TFORM1:BUTTON10CLICK (106)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (99)
(b)XCONTROL:XCONTROL (145)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (255)
TFORM1:WMCOMMAND (889)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (15)
The project code is attached.
Harbour /build shows:
Platform: Windows Windows Vista Professional 6.00.6001 Service Pack 1
Built on: Nov 30 2007 12:22:00
Last ChangeLog entry: 2007-11-06 21:55 UTC-0300 Eduardo Fernandes
<[email=modalsist@yah]modalsist@yah[/email]
oo.com.br>
ChangeLog CVS version: ChangeLog,v 1.5752.2.3
Harbour extensions: Yes
CA-Clipper 5.2e undocumented: Yes
CA-Clipper 5.2e strict compatibility: No
CA-Clipper 5.3x compatible extensions: Yes
Alaska Xbase++ compatible extensions: Yes
CA-Visual Objects compatible extensions: No
Multisoft Flagship compatible extensions: Yes
Microsoft FoxPro compatible extensions: No
dBase compatible extensions: No
Object file generation support: No
ANSI C usage: Non strict
C++ mode: Off
Compiler YACC debug mode: Off
Memory tracing and statistics: Off
Maximum symbol name length: 63
Best regards
Ingo
"José Lalí­n" <notengo@correo.com> schrieb im Newsbeitrag
news:[email=48a07f32@ozsrv2.ozlan.local...]48a07f32@ozsrv2.ozlan.local...[/email]
>
> Ingo,
>
> repeat the test with the attached OBJ.
>
> WITH OBJECT TSysShutDown():Create()
> :Execute( 0 )
> END
>
> If it stills GPFs, run "harbour /build" and post here the result.
>
> Regards,
> José Lalí­n
>
--

Attached files sdown.zip (5.1 KB)Â

xAvi, José & Dionisis,
xAvi's code works and shut the system (Vista) down.
Regards
Ingo
"xAvi" <jarabal_eliminar_no_spam_@gmail.com> schrieb im Newsbeitrag
news:48a082d9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Dionisis & Ingo,
>
> Just of curiosity, this code work? .-
>
> http://www2.xailer.com/cgi/dnewsweb.exe ... ticle&grou p=local.xailer.pro.es&item=12017
>
> Procedure Main()
> ProblemOut()
> ...
> Return
>
> #pragma BEGINDUMP
> #include <windows.h>
> #include "xailer.h"
>
> /*****************************************
> * FUERA PROBLEMAS
> * -----------------
> * ProblemOut()
> ******************************************/
> XA_FUNC( PROBLEMOUT )
> {
> HANDLE hToken;
> TOKEN_PRIVILEGES tkp;
>
> if( OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES |
> TOKEN_QUERY, &hToken ) ){
> LookupPrivilegeValue( NULL, SE_SHUTDOWN_NAME,
> &tkp.Privileges[0].Luid );
> tkp.PrivilegeCount = 1;
> tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
> AdjustTokenPrivileges( hToken, FALSE, &tkp, 0,
> (PTOKEN_PRIVILEGES)NULL, 0 );
> if( GetLastError() == ERROR_SUCCESS ){
> InitiateSystemShutdown( NULL, NULL, 0, TRUE, FALSE );
> }
> }
> }
> #pragma ENDDUMP
>
> Best regards,
> Xavi
>
> Ingo escribió:
>> José,
>> sorry it's always the same GPF on Vista too regardless of which method
>> calling.
>> :execute(0) too
>>
>> Best regards
>>
>> Ingo

xAvi, José & Dionisis,
xAvi's code works and shut the system (Vista) down.
Regards
Ingo
"xAvi" <jarabal_eliminar_no_spam_@gmail.com> schrieb im Newsbeitrag
news:48a082d9$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Dionisis & Ingo,
>
> Just of curiosity, this code work? .-
>
> http://www2.xailer.com/cgi/dnewsweb.exe ... ticle&grou p=local.xailer.pro.es&item=12017
>
> Procedure Main()
> ProblemOut()
> ...
> Return
>
> #pragma BEGINDUMP
> #include <windows.h>
> #include "xailer.h"
>
> /*****************************************
> * FUERA PROBLEMAS
> * -----------------
> * ProblemOut()
> ******************************************/
> XA_FUNC( PROBLEMOUT )
> {
> HANDLE hToken;
> TOKEN_PRIVILEGES tkp;
>
> if( OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES |
> TOKEN_QUERY, &hToken ) ){
> LookupPrivilegeValue( NULL, SE_SHUTDOWN_NAME,
> &tkp.Privileges[0].Luid );
> tkp.PrivilegeCount = 1;
> tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
> AdjustTokenPrivileges( hToken, FALSE, &tkp, 0,
> (PTOKEN_PRIVILEGES)NULL, 0 );
> if( GetLastError() == ERROR_SUCCESS ){
> InitiateSystemShutdown( NULL, NULL, 0, TRUE, FALSE );
> }
> }
> }
> #pragma ENDDUMP
>
> Best regards,
> Xavi
>
> Ingo escribió:
>> José,
>> sorry it's always the same GPF on Vista too regardless of which method
>> calling.
>> :execute(0) too
>>
>> Best regards
>>
>> Ingo

José,
with Xailer 2.0 it works now!!!!!!
Regards
Ingo
"José Lalí­n" <notengo@correo.com> schrieb im Newsbeitrag
news:[email=48a07f32@ozsrv2.ozlan.local...]48a07f32@ozsrv2.ozlan.local...[/email]
>
> Ingo,
>
> repeat the test with the attached OBJ.
>
> WITH OBJECT TSysShutDown():Create()
> :Execute( 0 )
> END
>
> If it stills GPFs, run "harbour /build" and post here the result.
>
> Regards,
> José Lalí­n
>

José,
with Xailer 2.0 it works now!!!!!!
Regards
Ingo
"José Lalí­n" <notengo@correo.com> schrieb im Newsbeitrag
news:[email=48a07f32@ozsrv2.ozlan.local...]48a07f32@ozsrv2.ozlan.local...[/email]
>
> Ingo,
>
> repeat the test with the attached OBJ.
>
> WITH OBJECT TSysShutDown():Create()
> :Execute( 0 )
> END
>
> If it stills GPFs, run "harbour /build" and post here the result.
>
> Regards,
> José Lalí­n
>

José,
I confirm too. Run into XP Pro environment with the new XAILER 2.0
Regards
Dionisis
? "Ingo" <support@mandantwin.com> ?????? ??? ??????
news:48a15ae0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> José,
>
> with Xailer 2.0 it works now!!!!!!
>
> Regards
>
> Ingo
> "José Lalín" <notengo@correo.com> schrieb im Newsbeitrag
> news:[email=48a07f32@ozsrv2.ozlan.local...]48a07f32@ozsrv2.ozlan.local...[/email]
>>
>> Ingo,
>>
>> repeat the test with the attached OBJ.
>>
>> WITH OBJECT TSysShutDown():Create()
>> :Execute( 0 )
>> END
>>
>> If it stills GPFs, run "harbour /build" and post here the result.
>>
>> Regards,
>> José Lalín
>>
>

José,
I confirm too. Run into XP Pro environment with the new XAILER 2.0
Regards
Dionisis
? "Ingo" <support@mandantwin.com> ?????? ??? ??????
news:48a15ae0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> José,
>
> with Xailer 2.0 it works now!!!!!!
>
> Regards
>
> Ingo
> "José Lalín" <notengo@correo.com> schrieb im Newsbeitrag
> news:[email=48a07f32@ozsrv2.ozlan.local...]48a07f32@ozsrv2.ozlan.local...[/email]
>>
>> Ingo,
>>
>> repeat the test with the attached OBJ.
>>
>> WITH OBJECT TSysShutDown():Create()
>> :Execute( 0 )
>> END
>>
>> If it stills GPFs, run "harbour /build" and post here the result.
>>
>> Regards,
>> José Lalín
>>
>

Ingo, Dionisis,
> Harbour /build shows:
That's the problem. We are using different xHarbour builds and thus the error.
It is hard for me to return to that xHarbour version, so I will update the
blogs and a note about the Xailer version needed to use the .lib.
Regards,
José Lalí­n