PDA

Ver la Versión Completa : Ocultar exe.


_F3R_
30-08-2010, 01:25:18
Hola gente, tengo un proyecto pero no sé como realizarlo. Vengo a ver si me ayudan. Este es el tema:
Tengo 1 form de un .exe en delphi.
Dentro de ese form quiero hacer como un navegador pero para .exe
Pero para que preguntarán?
Quiero que los exes se abran dentro de la aplicación que desarrollé el delphi y no se cree un proceso de dicha.

Gracias

Caral
30-08-2010, 01:52:35
Hola
No entiendo:
1-Quieres hacer un programa que ejecute otros exe ?.
2-Quieres hacer un programa que sirve de navegador web?
Saludos

_F3R_
30-08-2010, 04:06:37
Quiero hacer un programa que execute otros exe, dentro del mismo.

ecfisa
30-08-2010, 08:50:54
Hola _F3R_

Podés hacer lo siguiente:

Agrega al Form
. Un TDirectoryListBox.
. Un TFileListBox.


unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, FileCtrl;

type
TForm1 = class(TForm)
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
procedure FormCreate(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure FileListBox1DblClick(Sender: TObject);
private
public
end;

var
Form1: TForm1;

implementation {$R *.dfm}

uses ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
begin
DirectoryListBox1.Directory:= 'C:\'; // Drive y Path inicial
FileListBox1.Mask:= '*.exe'; // Archivos .EXE
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
FileListBox1.Directory:= DirectoryListBox1.Directory; // Actualizar lista de archivos
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject); // Doble click en FileListBox,
begin // Ejecuta archivo .EXE
SellExecute(Handle, nil, PChar(FileListBox1.FileName), '', '', SW_SHOWNORMAL);
end;
end.


Saludos. :)