| |
|
|
Frank Abbing | Hi,
irgendwie steh je aufm Schlauch. je voudrais une Screenshot des Windowsfensters faire, avec Icônes et Hintergrundsbild. mais sans, dass autre Programmfenster trop voyons sommes. si Je l' HDC avec GetDC(%desktop) ermittle et den le contenu speichere, befinden sich toujours autre la fenêtre avec dans qui Grafik. peux doch pas son, dass je auparavant alle geöffneten la fenêtre schliessen doit? Irgendwie komm je pas plus, peux la fois quelqu'un aider, qui Knoten trop entwirren? |
|
|
| |
|
|
|
| Hm hab grad la fois quoi zusammengebastelt - sur jeden le cas funktionierts - aussi wenns pas qui feine englische ist, mais plutôt un iF-Knüppel: KompilierenMarqueSéparation {$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
|
|
|
| |
|
|
|
Frank Abbing | Hi.
Klappt la plus part du temps, mais pas toujours. Scheint aussi pas sur Systemen trop marcher, qui den IE pas installiert avons. je besoin aussi une Echtzeitlösung, weil qui User jederzeit Icônes et Hintergrundbild changement peux. et cela kurzzeitige Wegschalten des Windowsfensters ist aussi pas drin. mais avec qui cherche pour dem réel Listview la hâte du mich sur une vestige gebracht. cela allez eleganter. merci! |
|
|
| |
|
|
|
| je wäre reconnaissant si Vous tolle Solution ici postest.
je pourrait es également besoin.
Salve, iF. |
|
|
| |
|
|
|
Frank Abbing | Hi,
mach je. après bastle je encore un un peu plus. |
|
|
| |
|
|