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...
Escrito 18 enero 2009 - 05:03
var cArchivo: String; begin inherited; cArchivo := ExtractFileDir(Application.ExeName) + '\Cartas\CARTA2.doc'; if FileExists(cArchivo) then winexec(PAnsiChar(cArchivo), sw_shownormal); end;
Escrito 18 enero 2009 - 05:07
Escrito 18 enero 2009 - 05:13
Escrito 18 enero 2009 - 05:57
ShellExecute(0,nil,PChar(cArchivo),nil,nil,sw_show);
Escrito 18 enero 2009 - 06:22