Fórum Calculadora win xp #194556
12/11/2003
Pessoal, qual a programação para colocar uma calculadora no windows xp? No win 98 é ShellExecute(Handle,´Open´,´C:\Windows\Calc.exe´,´´,´C:\Windows´,Sw_ShowNormal);
Posts
Se eu entendi bem vc quer abrir a calculadora do winXP, então faça:
procedure ExecutePrograma(Nome, Parametros: String);
Var
Comando: Array[0..1024] of Char;
Parms: Array[0..1024] of Char;
begin
StrPCopy (Comando, Nome);
StrPCopy (Parms, Parametros);
ShellExecute (0, Nil, Comando, Parms, Nil, SW_ShowMaximized);
end;
t+
Desculpe, esqueci de explicar:
para executar faça:
ExecutePrograma(´calc.exe´,´´)
se quiser abrir algum arquivo,
ExecutePrograma(´excel.exe´,´clientes.xls´)
A função ShellExecute abre qualquer tipo de arquivo reconhecido pelo sistema, logo para abrir um arquivo do Excel (*.xls), vc pode apenas passar o arquivo para a função no lugar em que passa o executável, tb é possível passar links para páginas da internet (http://, ftp://, mailto:, etc...).
Então a linha;
ExecutePrograma(´excel.exe´,´clientes.xls´) pode ser trocada por:
ExecutePrograma(´clientes.xls´ , ´´);
No Windows Xp o código para abrir a calculadora é exatamente o mesmo que no Windows 98. Logo o código que gerou a dúvida é válido tb para o WinXP, se o código não funciona, o problema deve estar no diretório, deve-se passar apenas ´calc.exe´ ao invés de ´C:\Windows\Calc.exe´, assim o Windows localiza o programa automaticamente, pois calc é um programa que já está no path do sistema.
Fica assim:
ShellExecute(Handle,´Open´,´calc.exe´,nil,nil,Sw_ShowNormal);
Simples de tudo
WinExec(´calc.exe´,SW_SHOWNORMAL) 8)
Bom, eu já tinha usado o WinExec mais no windows 2000 não funcionou! :(
Além do problema citado por CelsoCTorres (da função não funcionar), a Microsoft não recomenda o uso de WinExec.
[b:18869d9ccc]Note[/b:18869d9ccc]
This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.
fonte: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/winexec.asp
