Advertisement
Guest User

Principal.dpr

a guest
Oct 23rd, 2014
353
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.40 KB | None | 0 0
  1. library Principal;
  2.  
  3. //Criado por Mr_s0beit
  4. //http://www.youtube.com/user/MRs0beit
  5.  
  6. uses
  7.   SysUtils,
  8.   Classes,
  9.   Windows,
  10.   Chamadas in 'Chamadas.pas' {Form1},
  11.   Funcoes in 'Funcoes.pas';
  12.  
  13. {$R *.res}
  14.  
  15. Var D: Dword;
  16.  
  17. Procedure ShowForm;
  18. begin
  19. Form1:= TForm1.Create(nil);
  20. Form1.ShowModal;
  21. end;
  22.  
  23. begin
  24. if GetModuleHandle('PointBlank.exe') <> 0 then
  25. CreateThread(nil,D,@ShowForm,nil,D,D);
  26. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement