[Avançado]Abrindo Form Dentro da DLL

Bom Galera aqui vou mostrar pra vcs como abrir uma FORM (Janela) Dentro da DLL, ou seja, qnd essa DLL for usada abrirá a FORM (Janela).

# Tutorial

Abra o Delphi Va em File > Closed All.
Agora crie a DLL normalmente e depois crie um Form dentro dela.

Adicione Windows Nas uses da DLL

Agora Vá Nas Properties do FORM e Mude o Text Para o Nome de MainFrm

No código da DLL, você adciona o seguinte:

Código:

---

var
  Janela:DWord;

---

Declara esta função abaixo da variável citada:

Código:

---

procedure abrirForm;
  begin;
    MainFrm:=TMainFrm.Create(nil);
    MainFrm.ShowModal;
  end;

---

No "begin" e "end" da DLL:

Código:

---

begin
CreateThread(nil, Janela, @abrirForm, nil, Janela, Janela);
end.

---

Creditos: FusioN - Tutorial
Creditos: dudaxan - Codigo

C++

Código PHP:

---

void CreateForm()
{
    // Enabling Windows XP visual effects before any controls are created
    Application::EnableVisualStyles();
    Application::SetCompatibleTextRenderingDefault(false); 

    // Create the main window and run it
    Application::Run(gcnew Window());
    
}
CreateThread(NULL, NULL, (LPTHREAD_START_ROUTINE) CreateForm, NULL, NULL, NULL); 


---

Obrigado Jamel Por Estar Postando os Code em C++

Pra ficar mais facil também vamos colocar uma API na DLL pra executar o Form atraves do API!

Exemplo:

Código PHP:

---


uses
  SysUtils,
  windows,
  Classes;
var
  AbriFrm: THandle;
  HID: Cardinal;
procedure abrirForm;
begin;
    MainFrm:=TMainFrm.Create(nil);
    MainFrm.ShowModal;
  end;
exports
abrirForm; // Aqui é o API pra da Hook no seu executavel
begin
AbriFrm:=OpenProcess(PROCESS_ALL_ACCESS,false,GetCurrentProcessID);
CreateRemoteThread(AbriFrm,nil,0,@abrirForm,@abrirForm,0,HID);
end. 


---