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.

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.


// 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:

procedure TFprincipal.Calculadora1Click(Sender: TObject);
begin
ShellExecute(Handle, Nil, 'calc.exe', Nil, Nil, SW_NORMAL);
end;


Gracias!!!