Calculadora win xp

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:

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.