Página 1 de 1
Calculadora do windows
Enviado: 28 Nov 2009 11:08
por BHS
bom dia amigos
to tentando chamar a calculadora do windows pela tecla F9
SET KEY -8 TO MYRUN("ccalc")
usando a função myrun, porém não acontece nada, mudou alguma forma de chamar uma tecla.
Estou usando o xharbour 1.2 com wvt/wvg.
Obrigado
Re: Calculadora do windows
Enviado: 28 Nov 2009 11:25
por alxsts
Olá!
BHS escreveu:SET KEY -8 TO MYRUN("ccalc")
O executável da calculadora do Windows é o Calc.Exe e fica localizado, por padrão, em C:\Windows\System32.
Re: Calculadora do windows
Enviado: 28 Nov 2009 11:33
por BHS
oi amigo
então esse ccalc, esta com o caminho:
ccalc = "C:\Windows\System32\calc.exe" .
então é pra funcionar correto ?
Re: Calculadora do windows
Enviado: 28 Nov 2009 11:34
por BHS
porém não funciona, pq será !?
Se eu colocar no sistema só pra fazer um teste myrun("c:\win...) funciona, mas pela tecla F9 não!
o SET KEY -8 (que é igual ao F9, se não estou enganado) funciona perfeitamente no Clipper, aqui que pergunto novamente, mudo alguma coisa no SET KEY no xharbour 1.2 com wvt/wvg ?
Re: Calculadora do windows
Enviado: 28 Nov 2009 11:47
por Maligno
Se ccalc é uma variável char que contém o endereço e nome do executável, você deveria passá-la para a função sem essas aspas duplas, não?
Re: Calculadora do windows
Enviado: 28 Nov 2009 11:49
por alxsts
Olá!
Não conheço xHarbour mas acredito que como no Clipper. O problema, creio eu, é que você está colocando o nome do executável errado. Não é CCALC e sim CALC.
Código: Selecionar todos
#include "Inkey.Ch"
Local bSetKey
bSetKey := SetKey( K_F9, { || MYRUN("CALC") } ) // ou bSetKey := SetKey( K_F9, { || MYRUN("C:\Windows\System32\CALC.EXE") } )
// < seus procedimentos >
SetKey( K_F9, bSetKey )
Espero que funcione.
Re: Calculadora do windows
Enviado: 28 Nov 2009 19:22
por alaminojunior
alxsts escreveu:O problema, creio eu, é que você está colocando o nome do executável errado. Não é CCALC e sim CALC.
Alexandre, ccalc (como o colega já explicou mais pra cima) é uma variável que contém o endereço e nome do executável. Inclusive já alertado pelo Maligno como solução. E do jeito que está (com aspas) é bem provável que seja este mesmo o problema. A não ser que a função MyRun() aceite o parâmetro com aspas e faça o tratamento. Existe também a possibilidade do arquivo "calc.exe" não existir, fato que poderia ser checado antes.
Re: Calculadora do windows
Enviado: 30 Nov 2009 07:37
por BHS
segue e parte do código:
Código: Selecionar todos
FUNC MAIN ()
SET CONF ON
SET CENT ON
SET DATE BRIT
SET EPOCH TO 1960
SET SCOR OFF
SET MESS TO 24 CENTER
SET WRAP ON
SET DELE ON
ccalc = "C:\WINDOWS\system32\calc.exe"
SET KEY -8 TO MYRUN(ccalc)
*****************************
function MYRUN( cComando )
local oShell, RET
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL
return iif( RET = 0, .T., .F. )
*****************************
Oi Alamino, se eu fizer um teste sem a tecla de atalho F9, abre a calculadora, porem eu ainda to achando que deve haver algum erro com a tecla F9, esse comando "SET KEY -8 TO" sempre funcionou no clipper, mas no xharbour não, o que será que esta errado ?
Re: Calculadora do windows
Enviado: 30 Nov 2009 08:18
por BHS
resolvido
SETKEY( K_F9 , { || myrun(calc) } )
pelo jeito o xharbour não aceita o comando que se usava no clipper
Obrigado a todos
Re: Calculadora do windows
Enviado: 30 Nov 2009 08:23
por alaminojunior
BHS escreveu:"SET KEY -8 TO" sempre funcionou no clipper, mas no xharbour não, o que será que esta errado ?
Tenta colocar um
no início do prg,
e usar
Vai saber ...
Re: Calculadora do windows
Enviado: 30 Nov 2009 10:22
por BHS
é Alamino, infelizmente com o SET KEY K_F9 não funciona mesmo