XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fremdfenster einfangen
Lauffähig ab Profan-Version 5.0
Andreas Miethe * Bielefeld * 1999
##################################
DEF @SetWindowLong(3) !USER32, SetWindowLongA
DEF @ASetParent(2) ! USER32,SetParent,%%,%
DEF @ACopyIcon(2) ! USER32,CopyIcon,%%,%
DEF @ASetClassLong(3) ! User32,SetClassLongA
DEF @AExtractIcon(3) ! SHELL32,ExtractIconA
Declare Ende%
Declare w2&,Icon&
Declare Dateiname#
Dim Dateiname#,15
String Dateiname#,0=Notepad.exe
settruecolor 1
Windowstyle 16
Windowtitle Profan mit Editor...
window add(%maxx,1),0-640,480
cls rgb(192,192,192)
Ein Icon aussuchen
Let Icon& = @AExtractIcon(%Hinstance,Dateiname#,0)
@ASetClassLong(%hwnd,-14,Icon&)
dispose dateiname#
Windowstyle setzen
SetWindowLong(%hwnd,-16,$92CF0000)
SetWindowLong(%hwnd,-20,$00000200)
setwindowpos %Hwnd = 0,0-641,480
Notepad starten
winexec(notepad.exe,2)
Let w2& = @FindWindow(Unbenannt - Editor)
umbenennen
SetText w2&,Das ist jetzt mein Editor
Elternfenster ist Profan
@Asetparent(w2&,%hwnd)
Fensterposition von Notepad
setwindowpos w2& = 0,0-width(%hwnd),Height(%hwnd)
Hauptfenster auf den Bildschirm
setwindowpos %hwnd = 0,0-640,480
Text in Notepad
@SendString(W2&,Das ist ein Notepadfenster im Profanfenster ! {ENTER})
Let ende%=0

whilenot ende%

wend

End