Español
Fuente/ Codesnippets

Anfertigen Bildschirmfoto

 

KompilierenMarcaSeparación
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bildschirmfoto anfertigen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer,1999
ScreenShot des Bildschirms oder eines einzelnen Fensters erstellen
Falls ein Programm zum Symbol verkleinert ist, wird es
kurz angezeigt und nach dem Foto wieder verborgen.
Die erstellte Bitmap findet sich in der Zwischenablage
und kann von dort aus mit einfachen Profan-Befehlen
weiterverarbeitet werden.
Def keybd_event(4) !USER32,keybd_event
Def IsIconic(1) !USER32,IsIconic
Def CaptureScreen(0) keybd_event($2C,1,0,0)
Def CaptureActiveWindow(0) keybd_event($2C,0,0,0)
Def SetForegroundWindow(1) !USER32,SetForegroundWindow
Def Sleep(1) !KERNEL32,Sleep

Proc CaptureWindow

    Parameters handle&
    Declare iconic%
    Case Neq(IsIconic(handle&),0):	Let iconic%=1
    ShowWindow(handle&,1)
    SetForeGroundWindow(handle&)
    Sleep(50)  Zeit lassen, sich zum Fotografieren zurechtzumachen
    CaptureActiveWindow()
    Case iconic%:	ShowWindow(handle&,2)

EndProc

Beispiel
Umweg über Speicher-Bitmap müßte nicht sein, soll aber zur
Demonstration dienen.
Für CaptureWindow-Bsp win32.hlp mit irgendeinem Thema starten!
CaptureWindow FindWindow(Win32 Programmers Reference)
CaptureScreen()  Bildschirm einfangen
Cls
ShowMax
MCLS %maxX,%maxY  Speicherbitmap erzeugen
StartPaint -1
ClipLoadBmp 0,0;0  eingefangenes Fensterbild in Speicherbmp kopieren
ClearClip  Zwischenablage freigeben
EndPaint
MCopyBmp 0,0-%maxX,%maxY > 0,0;0  Speicherbmp ins Profanfenster kopieren

While 1

    WaitInput

../funktionsreferenzen/XProfan/wend/'>Wend

 
16.07.2007  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

2.539 Views

Untitledvor 0 min.
Uwe Lang22.03.2020
AndreasS19.01.2019
GDL12.09.2015
Heiko Dix08.11.2012
Más...

Themeninformationen

Dieses Thema ha 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie