ejecutar un presentacion de powerpoint

[armando]

:D saludos
trabajo con dephi 6 y paradox
en una aplicacion que estoy desarrollando es necesario ejecutar presentaciones de powerpoint
y lo hajo de la siguiente manera

procedure TFMENU.BTN2Click(Sender: TObject);
var
ExecInfo: TShellExecuteInfo;
begin


ExecInfo.cbSize := SizeOf(ExecInfo);
ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
ExecInfo.Wnd := Handle;
ExecInfo.lpVerb := 'open';
ExecInfo.lpFile := 'F:\TEST\P\CERTIFICADO.PPS';
ExecInfo.lpParameters := nil;
ExecInfo.lpDirectory := nil;
ExecInfo.nShow := SW_SHOW;

ShellExecuteEx(@ExecInfo);
WaitForSingleObject(ExecInfo.hProcess, INFINITE);
end;


hasta aqui todo bien, pero quiero que se ejecute apartir de una ruta almacenada en una tabla


procedure TFMENU.BTN2Click(Sender: TObject);
var
ExecInfo: TShellExecuteInfo;
begin


ExecInfo.cbSize := SizeOf(ExecInfo);
ExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
ExecInfo.Wnd := Handle;
ExecInfo.lpVerb := 'open';
ExecInfo.lpFile := dm.rutasruta.asstring;
ExecInfo.lpParameters := nil;
ExecInfo.lpDirectory := nil;
ExecInfo.nShow := SW_SHOW;

ShellExecuteEx(@ExecInfo);
WaitForSingleObject(ExecInfo.hProcess, INFINITE);
end;

aqui no me compila me dice que no son compatibles pchar y string
espero su pronta respuesta ....
Maestro no solo es el que conoce sino el que comparte lo que sabe.

[roman]

Prueba así:


ExecInfo.lpFile := PChar(dm.rutasruta.asstring);


// Saludos

[armando]

ok, :) gracias roman
quedo perfecto
saludos
:D