🚀 go-pugleaf

$B$O$8$a$^$7$F!#(J
$B#W#i#n#d#o#w#s%W%m%0%i%_%s%0=i?4<T$N$b$N$G$9!#(J

$B;(;o$rFI$s$G$F!"(J"SetWindowsLong"$B#A#P#I$N3HD%%&%$%s%I%&%9%?%$%k$K!"(J
"WS_EX_TRANSPARENT$B!JF)L@$J%&%#%s%I%&!K(J"$B$C$F$$$&$N$,$"$k$N$rCN$C$?;d$O!"(J
$B;n$7$K!"0J2<$NMM$J%W%m%0%i%`$r:n@.$7$^$7$?!#(J

$B$3$N%W%m%0%i%`$r<B9T$5$;$k$H!"3N$+$K%U%)!<%`$H!"%\%?%s#1$OF)L@$K$J$j$^$9!#(J
$B%?%$%H%k%P!<$b>C$($F$7$^$$$^$7$?$N$G!"%?%9%/%P!<$G$3$N%W%m%0%i%`$rA*Br$9$k$H!"(J
$B%?%$%H%k%P!<$,=P$F$-$^$7$?$,!":G=iF)L@$G$"$C$?$O$:$N%\%?%s#1$,FMA3$"$i$o$l$F$7$^$$$^$9!#(J
$BM}M3$,$o$+$j$^$;$s!#(J

$B<!$K!"8=$l$?%?%$%H%k%P!<$r;H$C$F%U%)!<%`$r0\F0$5$;$k$H!"$J$s$H!"%U%)!<%`$,:G=i$K$"$C$?0L(J
$BCV$NJI;f$N3($,$=$N$^$^0\F0$7$F$/$k$N$G$9!#(J
$B$J$<$J$N$G$7$g$&!)(J

$B$I$J$?$+$3$N#2$D$N5?Ld$N2sEz$r$*4j$$$$$?$7$^$9!#(J

$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(J
program tpare;

uses
  Windows,
  Forms,
  tparemain in 'tparemain.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  SetWindowLong(Form1.Handle,GWL_EXSTYLE,WS_EX_TRANSPARENT);
  SetWindowLong(Form1.Button1.Handle,GWL_EXSTYLE,WS_EX_TRANSPARENT);
  Application.Run;
end.
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(J
unit tparemain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private $B@k8@(J }
  public
    { Public $B@k8@(J }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.close;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.Close;
end;

end.
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(J