Delphi - Ejecutar aplicacion externa

 
Vista:

Ejecutar aplicacion externa

Publicado por Jose Mariano (46 intervenciones) el 15/10/2002 19:45:29
Hola a todos. Desearía saber cómo puedo hacer desde una aplicación delphi que se ejecute otra aplicación externa, o por ejemplo, que al pulsar un boton se abra un determinado documento.
Otra cosa que quiero hacer es poner un vínculo en un programa delphi bien de una direccion de correo o bien de una direccion web.
Muchas gracias a todos!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ejecutar aplicacion externa

Publicado por MiguelC (106 intervenciones) el 16/10/2002 08:09:11
Esto de aca abajo es lo que hago yo, declaro esta funcion primeramente:

function ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
// Gquehace indica si el archivo se ejecuta o se imprime...
// Donde Gquehace es una variable "publica"
If GQueHace=False Then
Begin
Result := ShellExecute(Application.MainForm.Handle, 'Open',
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
End
Else
Begin
Result := ShellExecute(Application.MainForm.Handle, 'Print',
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
End;
end;

// y luego en el evento onclick del boton pones:

Gquehace:=False; //Lo abre y no imprime
ExecuteFile('Documento.txt','','',SW_Show);

// o bien por ej, para abrir la calculadora de windows
// le pones la ruta correcta::

ExecuteFile('Calc.Exe', '', 'C:\Winnt\system32', SW_SHOW);

Espero te sirva.... ah! y para el vinculo a un correo existe un componente llamado TEMAIL manda un correo en blanco según una direccion señalada a la bandeja de salida del outlook.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar