Calculadora do windows

[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

[alxsts]

Olá!

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.

[BHS]

oi amigo

então esse ccalc, esta com o caminho:

ccalc = "C:\Windows\System32\calc.exe" .

então é pra funcionar correto ?

[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 ?

[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?

[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.

[alaminojunior]

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.

[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 ?

[BHS]

resolvido

SETKEY( K_F9 , { || myrun(calc) } )

pelo jeito o xharbour não aceita o comando que se usava no clipper


Obrigado a todos

[alaminojunior]

"SET KEY -8 TO" sempre funcionou no clipper, mas no xharbour não, o que será que esta errado ?

Tenta colocar um

Código: Selecionar todos

#include "inkey.ch"

no início do prg,
e usar

Código: Selecionar todos

Set Key K_F9 to MYRUN(ccalc)

Vai saber ...

[BHS]

é Alamino, infelizmente com o SET KEY K_F9 não funciona mesmo