delphi Transparent form on the server

[Geoorge 0]

Good night, I tried some ways here, but I was not successful, I am working in remote access, and I wanted that while I work on my client's machine, a form appears with loading and tals and for me it is transparent to be able to make the settings . Could someone give me a light on the part of appearing for him, and not for me? I am grateful.

Edited March 20, 2021 by Geoorge

[KodeZwerg 54]

sounds kind of suspicious.

[Guest]

here a "TOTTALYYYYYY PROFESSIONALLLL "LOADING... " FORM   😂 🤣 😁 

program prjFormLoading;

uses
  Vcl.Forms,
  Vcl.Controls,
  uFormMain in 'uFormMain.pas' {frmFormMain} ,
  uFormLoading in 'uFormLoading.pas' {frmFormLoading};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  //
  Application.CreateForm(TfrmFormMain, frmFormMain);   // <--- your FORM-MAIN
  //
  TfrmFormLoading.Execute;  // your FORM-LOADING...
  //
  Application.Run;

end.

 

FORM with "LOADING...."

type
  TfrmFormLoading = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    class function Execute: TModalResult;
  end;

var
  frmFormLoading: TfrmFormLoading;

implementation

{$R *.dfm}

var
  lTimeBomb: TDateTime;

  { TfrmFormLoading }

class function TfrmFormLoading.Execute: TModalResult;
begin
  frmFormLoading := TfrmFormLoading.Create(Application); // force Appliation destroy it on the end-app!!!
  //
  result := frmFormLoading.ShowModal;
end;

procedure TfrmFormLoading.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := DateTimeToStr(now);
  Label2.Caption := DateTimeToStr(lTimeBomb);
  //
  if (now >= lTimeBomb) then
  begin
    Timer1.Enabled := false;
    //
    close;
  end;
end;

initialization

ReportMemoryLeaksOnShutdown := true;
//
lTimeBomb := now + 0.00005;

finalization

end.

 

 

NOTE: DONT DO IT YOUR HOME... it can explode  

 

hug

[KodeZwerg 54]

lol, nice one, respect 😉

[Guest]

please, not use if YOU IS NOT A PROFESSIONAL hmmmmm

  😂😂😂😂😂😂😂😂

hug

[Attila Kovacs 629]

@Geoorge So you want to hide the screen from the client meanwhile you are changing some settings?

[Geoorge 0]

41 minutos atrás, Attila Kovacs disse:

@Geoorge Quer ocultar a tela do cliente enquanto altera as configurações?

The goal was to make an app similar to Teamviewer, only with the option of showing a form to the client showing that the technician is confirming his machine. I'm using to make this project an Open Source

[Geoorge 0]

1 hour ago, emailx45 said:

here a "TOTTALYYYYYY PROFESSIONALLLL "LOADING... " FORM   😂 🤣 😁 

program prjFormLoading;

uses
  Vcl.Forms,
  Vcl.Controls,
  uFormMain in 'uFormMain.pas' {frmFormMain} ,
  uFormLoading in 'uFormLoading.pas' {frmFormLoading};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  //
  Application.CreateForm(TfrmFormMain, frmFormMain);   // <--- your FORM-MAIN
  //
  TfrmFormLoading.Execute;  // your FORM-LOADING...
  //
  Application.Run;

end.

 

FORM with "LOADING...."

 

 

NOTA: NÃO FAÇA NA SUA CASA ... pode explodir  

 

abraço

Friend, the part of the loading that I was able to do, the same problem and making a form appear normal on the client and on the server become transparent . I looked for something about Aero / Alphablend and PrintWindow, but I was unsuccessful

[Geoorge 0]

1 hour ago, KodeZwerg said:

soa meio suspeito.

No friend, I want to create a project in a simple way, similar to Teamviewer, but with personalized options. I am using an OpenSource for remote access.

[KodeZwerg 54]

1 hour ago, Geoorge said:

No friend, I want to create a project in a simple way, similar to Teamviewer, but with personalized options. I am using an OpenSource for remote access.

Hello friend, now I understand you better and believe that you have no evil plans.

There are several methods to achieve this.

Since your project is opensource, give us your github link (or another server) where you uploaded and share the project.

Not every method is compatible with every source.

It must first be checked which method can be used for your project.

Together we can do it! And write which Delphi version you are working with!

Edited March 21, 2021 by KodeZwerg

[Geoorge 0]

12 hours ago, KodeZwerg said:

Hello friend, now I understand you better and believe that you have no evil plans.

There are several methods to achieve this.

Since your project is opensource, give us your github link (or another server) where you uploaded and share the project.

Not every method is compatible with every source.

It must first be checked which method can be used for your project.

Together we can do it! And write which Delphi version you are working with!

Friend, OpenSource is not mine, and from existing projects based on the code of allakore remote. 

[KodeZwerg 54]

1 hour ago, Geoorge said:

Friend, OpenSource is not mine, and from existing projects based on the code of allakore remote. 

No code, no help. Easy as.

[Geoorge 0]

17 hours ago, KodeZwerg said:

No code, no help. Easy as.

 

uses 
 Vcl.OleAuto;

implementation
uses
dwmapi;



function CaptureDesktop: TGraphic;
const
    CAPTUREBLT = $40000000;
    SM_XVIRTUALSCREEN        = 76;
    SM_YVIRTUALSCREEN        = 77;
    SM_CXVIRTUALSCREEN       = 78;
    SM_CYVIRTUALSCREEN       = 79;
var
    nDesktopWidth, nDesktopHeight: Integer;
    tmpBmp: TBitmap;
    hwndDesktop: HWND;
    dcDesktop: HDC;
begin
    Result := nil;

    {
        GetWindowRect(GetDesktopWindow)
        is completely wrong. It will intentionally return only the rectangle of the primary monotor. See MSDN.
    }

    { Cannot handle dpi virtualization
    //Get the rect of the entire desktop; not just the primary monitor
    ZeroMemory(@desktopRect, SizeOf(desktopRect));
    for i := 0 to Screen.MonitorCount-1 do
    begin
        desktopRect.Top := Min(desktopRect.Top, Screen.Monitors[i].Top);
        desktopRect.Bottom := Max(desktopRect.Bottom, Screen.Monitors[i].Top + Screen.Monitors[i].Height);
        desktopRect.Left := Min(desktopRect.Left, Screen.Monitors[i].Left);
        desktopRect.Right := Max(desktopRect.Right, Screen.Monitors[i].Left + Screen.Monitors[i].Width);
    end;

    //Get the size of the entire desktop
    nDesktopWidth := (desktopRect.Right - desktopRect.Left);
    nDesktopHeight := (desktopRect.Bottom - desktopRect.Top);
    }

    //Also doesn't handle dpi virtualization; but is shorter and unioning rects
    nDesktopWidth := GetSystemMetrics(SM_CXVIRTUALSCREEN);
    nDesktopHeight := GetSystemMetrics(SM_CYVIRTUALSCREEN);

    tmpBmp:= TBitmap.Create;
    try
        tmpBmp.Width := nDesktopWidth;
        tmpBmp.Height := nDesktopHeight;

        //dcDesktop := GetDC(0); //
        hwndDesktop := GetDesktopWindow;
        dcDesktop := GetDC(hwndDesktop); //GetWindowDC(0) returns the DC of the primary monitor (not what we want)
        if dcDesktop = 0 then
            Exit;
        try
            if not BitBlt(tmpBmp.Canvas.Handle, 0, 0, nDesktopWidth, nDesktopHeight, dcDesktop, 0, 0, SRCCOPY or CAPTUREBLT) then
                Exit;
        finally
            ReleaseDC(0, dcDesktop);
        end;
    except
        tmpBmp.Free;
        raise;
    end;
//  CaptureScreenShot(GetDesktopWindow, Image, false);

    Result := tmpBmp;
end;

procedure ScreenShot(DestBitmap: TBitmap);
var
  DC: HDC;
begin
  DC:=GetDC(GetDesktopWindow);
  try
    DestBitmap.Width:=GetDeviceCaps(DC, HORZRES);
    DestBitmap.Height:=GetDeviceCaps(DC, VERTRES);
    BitBlt(DestBitmap.Canvas.Handle,0,0,DestBitmap.Width,DestBitmap.Height,DC,0,0,SRCCOPY);
  finally
    ReleaseDC(GetDesktopWindow, DC);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    desktop: TGraphic;
    fDisable: BOOL;
begin
    {
        Capture a screenshot without this window showing
    }
    //Disable DWM transactions so the window hides immediately
    if DwmApi.DwmCompositionEnabled then

    begin
        fDisable := True;
        OleCheck(DwmSetWindowAttribute(Self.Handle, DWMWA_TRANSITIONS_FORCEDISABLED, @fDisable, sizeof(fDisable)));
    end;
    try
        //Hide the window
        Self.Hide;
        try
            //Capture the desktop
            desktop := CaptureDesktop;
        finally
            //Re-show our window
            Self.Show;
        end;
    finally
        //Restore animation transitions
        if DwmApi.DwmCompositionEnabled then
        begin
            fDisable := False;
            DwmSetWindowAttribute(Self.Handle, DWMWA_TRANSITIONS_FORCEDISABLED, @fDisable, sizeof(fDisable));
        end;
    end;

    //Save the screenshot somewhere
    desktop.SaveToFile('c:\Test.bmp');
end;

I only managed to get to that part, but the form flashes, and it cannot.

Edited March 22, 2021 by Geoorge