Calculadora de Windows

[sizne]

Hoola!
Pueden ayudarme en esto por favor?
Coloqué este código para que me aparezca la calculadora de Windows en mi programa.

Código Delphi [-]
procedure TFprincipal.Calculadora1Click(Sender: TObject);
begin
  ShellExecute(Handle, Nil, PChar('calc.exe'), Nil, Nil, SW_NORMAL);
end;

Coloqué ese código para que me aparezca la calculadora de Windows,
pero me aparece el siguiente mensaje, a pesar de que funciona o
se muestra la calculadora.

[Warning]Uprincipal.pas(454):Unsafe type 'PChar'

Saludos!

[[maeyanes]]

Hola...

Si vas a pasar el nombre directamente no necesitas hacer el cast a PChar.

Código Delphi [-]
// Pasamos la cadena directamente:
ShellExecute(Handle, nil, 'calc.exe', nil, nil, SW_NORMAL);

// Usamos una variable de tipo string, si necesitas cast:
var
  AppName: string;

begin
  AppName := 'calc.exe';
  ShellExecute(Handle, nil, PChar(AppName), nil, nil, SW_NORMAL)
end;

Saludos...

[ecfisa]

Hola.

También podes usar WinExec.

procedure EjecutarApp(AName: string);
begin
   WinExec(PChar(AName),SW_SHOWNORMAL);
end;

Saludos.

[sizne]

Hola!!!

Coloqué esto:

Código Delphi [-]
procedure TFprincipal.Calculadora1Click(Sender: TObject);
begin
  ShellExecute(Handle, Nil, 'calc.exe', Nil, Nil, SW_NORMAL);
end;

Gracias!!!