Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Ocultar exe. (https://www.clubdelphi.com/foros/showthread.php?t=69627)

_F3R_ 30-08-2010 01:25:18

Ocultar exe.
 
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.

Código Delphi [-]
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. :)


La franja horaria es GMT +2. Ahora son las 06:42:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi