مشروع تجاري مضاد سرقة الجهاز افكار وسورس

[onexite]

PHP كود :

if varcommand <>command then
     if Strings[0]='3' then begin
     if play then
     PlaySound(2);
      Form13.show;
     if Length(Strings[1])>0 then
     Form13.sMemo1.Text:=Strings[1];
     sAlphaImageList1.GetIcon(39, img2.Picture.Icon);
    // sAlphaImageList1.GetIcon(9, CoolTrayIcon1.Icon);

     Form13.tmr1.Enabled:=True;
     command:= varcommand;
     end; 


PHP كود :

procedure TForm1.PlaySound(_type:integer);
 var
   hFind, hRes: THandle;
   Song: PChar;
 begin
   if _type=1 then
  hFind := FindResource(HInstance, 'sound', 'WAV') ;
    if _type=2 then
  hFind := FindResource(HInstance, 'mail', 'WAV') ;
  if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
    if hRes <> 0 then begin
      Song:=LockResource(hRes) ;
      if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;
      UnlockResource(hRes) ;
    end;
    FreeResource(hFind) ;
  end;

end; 


PHP كود :

private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;
  closeme:Boolean=False;
implementation

{$R *.dfm}

procedure TForm13.tmr1Timer(Sender: TObject);
begin

 sGauge1.Progress:=sGauge1.Progress-1;
if sGauge1.Progress < 1 then begin
//Form13.FormStyle:=fsNormal;
closeme:=True;
tmr1.Enabled:=False;
Close;
end else
begin
   Application.BringToFront;
 Form13.FormStyle:=fsStayOnTop;
end;
end;

procedure TForm13.FormShow(Sender: TObject);
var
  Rect: TRect;
begin
  sGauge1.Progress:=100;
  DoubleBuffered := true;                                   // On évite le scintillement
  Left:= Screen.Width - ClientWidth - 10;                    // La form se tiendra pile à droite de l'écran
  SystemParametersInfo(SPI_GETWORKAREA, 0, @Rect, 0);       // On récupère la hauteur de la barre des tâches
  Top := Screen.Height - (Screen.Height - Rect.Bottom) - Height - 2;



end;

procedure TForm13.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=closeme;
end;

procedure TForm13.WMSysCommand(var Msg: TWMSysCommand);
begin
if ((msg.CmdType and $FFF0) = SC_MOVE) then begin msg.Result:=0; exit; end; inherited;
end;