Cita:
Empezado por TheJoker
Hola a todos, tengo una duda ya que la aplicacion que estoy desarrollando, en algunos pasos requiere de otra herramienta externa, mi pregunta es como crear un .exe que contenga mi programa y las herramientas que necesito.
Salu2.
|
Si por herramienta externa te refieres a ejecutables, una de las formas de disparar desde Delphi es utilizando la función shellexecute. Has de meter en el uses ShellApi. Mírate la ayuda. Hay mil ejemplos en internet.
Algo así
Código Delphi
[-]
procedure TForm1.TrV_ProtocoloMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
cLink:string;
begin
with Sender as TTreeView do
begin
try
cLink:=Selected.Text;
if Trim(cLink)<>'' then
begin
if (LowerCase(ExtractFileExt(cLink))='.exe') or
(LowerCase(ExtractFileExt(cLink))='.com') or
(LowerCase(ExtractFileExt(cLink))='.bat') then
ShellExecute(Application.Handle,'open',pchar(cLink),nil,pchar(ExtractFilePath(cLink)),SW_SHOWNORMAL)
end;
except
ShowMessage('No ha funcionado')
end;
end;
end;
Saludos