In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TO Jose Lalin

Xailer professional forum in English
Responder
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »


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
--
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »


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
--
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

TO Jose Lalin

Mensaje por Dionisis Divaris »

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
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Xailer
Mensajes: 328
Registrado: Mar Dic 23, 2008 5:40 pm

TO Jose Lalin

Mensaje por Xailer »

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 Divaris
SGS-soft
Home Page :
Support at :support.sgs@gmail.com[/email]
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »

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
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »

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
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

TO Jose Lalin

Mensaje por Dionisis Divaris »

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
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Xailer
Mensajes: 328
Registrado: Mar Dic 23, 2008 5:40 pm

TO Jose Lalin

Mensaje por Xailer »

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 Divaris
SGS-soft
Home Page :
Support at :support.sgs@gmail.com[/email]
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »

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
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »

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
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

José,
sorry it's always the same GPF on Vista too regardless of which method
calling.
:execute(0) too
Best regards
Ingo
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

José,
sorry it's always the same GPF on Vista too regardless of which method
calling.
:execute(0) too
Best regards
Ingo
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »


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
--
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »


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
--
Arriba
xAvi
Mensajes: 108
Registrado: Mar Abr 08, 2008 6:12 pm

TO Jose Lalin

Mensaje por xAvi »

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
Arriba
xAvi
Mensajes: 108
Registrado: Mar Abr 08, 2008 6:12 pm

TO Jose Lalin

Mensaje por xAvi »

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
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

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)Â
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

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)Â
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

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
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

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
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

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
>
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

TO Jose Lalin

Mensaje por Ingo JH »

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
>
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

TO Jose Lalin

Mensaje por Dionisis Divaris »

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
>>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Xailer
Mensajes: 328
Registrado: Mar Dic 23, 2008 5:40 pm

TO Jose Lalin

Mensaje por Xailer »

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
>>
>
Dionisis Divaris
SGS-soft
Home Page :
Support at :support.sgs@gmail.com[/email]
Arriba
notengo
Mensajes: 417
Registrado: Vie Oct 12, 2007 1:29 pm

TO Jose Lalin

Mensaje por notengo »

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
Arriba
Responder

Volver a “Xailer Pro English”