delphi
var cArchivo: String; begin inherited; cArchivo := ExtractFileDir(Application.ExeName) + '\Cartas\CARTA2.doc'; if FileExists(cArchivo) then winexec(PAnsiChar(cArchivo), sw_shownormal); end;
desde Ejecutar de windows si abre...
Posted 18 January 2009 - 05:03 PM
var cArchivo: String; begin inherited; cArchivo := ExtractFileDir(Application.ExeName) + '\Cartas\CARTA2.doc'; if FileExists(cArchivo) then winexec(PAnsiChar(cArchivo), sw_shownormal); end;
Posted 18 January 2009 - 05:07 PM
Posted 18 January 2009 - 05:13 PM
Posted 18 January 2009 - 05:57 PM
ShellExecute(0,nil,PChar(cArchivo),nil,nil,sw_show);
Posted 18 January 2009 - 06:22 PM