Ajuda com criaçao de comando de form

Delphi

07/11/2013

Ola gostaria de uma ajudinha para quem meu form abra só quando usar um comando hot-key nele, pois quero injetar minha dll ai depois que game estiver totalmente aberto usa hotkey e abria form


procedure OpenForm;
begin
Application.ShowMainForm := True;
with TVitor.Create(Application) do
ShowModal;

end;

procedure DllMain(Reason: DWORD);
var
Show: DWORD;
begin
if (Reason = DLL_PROCESS_ATTACH) then
CreateThread(nil, 0, @OpenForm, nil, 0, Show);

if (Reason = DLL_PROCESS_DETACH) then
FreeLibraryAndExitThread(HInstance, 0);
end;

begin
DllProc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);
end.
Vitor Monteiro

Vitor Monteiro

Curtidas 0
POSTAR