| armando |
28-05-2007 22:09:25 |
ejecutar un presentacion de powerpoint
: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
Cita:
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
Cita:
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. |
