XProfan

English

Frank
Abbing

Hi,

somehow steh I aufm Hose.
i want a Screenshot the Windowsfensters make, with icons and Hintergrundsbild. but without, that other Program-Window To see are.
If I the HDC with GetDC(%desktop) ermittle and the Content save, find itself always others Window along into the graphic.
can still not his, I before any opened Window close must? somehow komm I do not moreover, can time someone help, The nodes To disentangle?

08/19/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm Have strain something zusammengebastelt - In any drop funktionierts - too ifs not The swell english is, separate sooner one iF-Knüppel:

Compile Mark Separation

 {$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

08/19/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Hi.

Klappt usually, but not always. shining neither on Systemen To functions, The whom IE not installs having.
I need too a Echtzeitlösung, because the User anytime Icons and Wallpapers Change can. and the kurzzeitige Wegschalten the Windowsfensters is neither drin.
but with the Search to the actual List view have you got me on a track brought. the goes eleganter.
Thank you!

08/19/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I would grateful if you a crazy Solution here postest.