XProfan

Español

Frank
Abbing

Hi,

irgendwie steh Yo aufm Schlauch.
Yo möchte una Screenshot des Windowsfensters hacer, con Icons y Hintergrundsbild. Aber sin, dass otro Programmfenster a sehen son.
Wenn Yo, el HDC con GetDC(%desktop) ermittle y el Inhalt speichere, befinden se siempre otro Ventana con en el Grafik.
Kann doch no ser, dass Yo vorher todos geöffneten Ventana schliessen muß? Irgendwie komm Yo no más, kann veces alguien helfen, el Knoten a entwirren?

19.08.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hm tener grad algo zusammengebastelt - en cada Fall funktionierts - auch wenns no el feine englische es, pero más una IF-Knüppel:

Kompilieren Marca Separación

 {$cleq}
declare dhdl&,dhdlPar&,fle$,dlg&
fle$:=$tempdir+"d.bmp"
windowstyle 80
cls
dlg&:=createwindow(0,"",0,0 ,%maxx,%maxy)
dhdl&:=getDesktopHdl()
dhdlPar&:=external("user32","GetParent",dhdl&)
external("user32","SetParent",dhdl&,dlg&)
dulcoiF
startpaint dlg&
savebmp fle$,0,0 - %maxx,%maxy
endpaint
external("user32","SetParent",dhdl&,dhdlPar&)
shell "rundll32.exe url.dll,FileProtocolHandler "+fle$
end

Proc GetDesktopHdl

    Return If(External("user32","FindWindowExA",External("user32","FindWindowExA",External("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0)>0,External("user32","FindWindowExA",External("user32","FindWindowExA",External("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0),External("user32","FindWindowExA",External("user32","FindWindowExA",External("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"SysListView32",0))

Endproc

proc dulcoiF

    settimer 100;waitinput;killtimer

ENDPROC

19.08.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Hi.

Klappt meistens, pero no siempre. Scheint auch no en Systemen a trabajo, el el IE no installiert haben.
Yo necesidad auch una Echtzeitlösung, porque el User en cualquier momento Icons y Hintergrundbild ändern kann. Und el kurzzeitige Wegschalten des Windowsfensters es auch no drin.
Aber con el Búsqueda después de el real Listview hast du mich en una Spur gebracht. Es eleganter.
Gracias!

19.08.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Yo wäre dankbar si una tolle Solución hier postest.