XProfan

 $H Messages.ph
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&

proc TToUTF

    parameters text$
    declare b#
    Dim b#,2*len(text$)
    k_MultiByteToWideChar(0,1,Addr(text$),len(text$),b#,SizeOf(b#))
    text$ = Char$(b#,0,SizeOf(b#))
    return text$

endproc

proc CreateW

    if %pCount > 10

        parameters Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,exstyle&

    else

        parameters Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&
        var exstyle& = 0

    endif

    Class$ = TTOUTF(Class$)
    Name$ = TTOUTF(Name$)
    var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = if(u_IsMenu(id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    var handle& = u_CreateWindowExW(exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)

    ifnot handle&

        Class$ = WinError$(%WinError)
        MessageBox(Es trat folgender Fehler auf:
        + Class$,F E H L E R !!!,4096)

    endif

    Dispose cs#
    return handle&

endproc

declare hUser&,hGDI&,hKrnl&,hList&,clip$
cls
var font& = Create(Font,Times New Roman,16,0,0,0,0)
hUser& = ImportDLL(USER32,u_)
hGDI& =  ImportDLL(GDI32,g_)
hKrnl& = ImportDLL(KERNEL32,k_)
hList& = CreateW(EDIT,Test,$50000004,5,5,200,200,%hWnd,1000,%hInstance,$200)dies ist ein Test der API.
SetFont hList&,font&
Shell CHARMAP

whilenot IsKey(27)

    waitinput

    if IsKey(2)

        clip$ = TTOUTF(GetClip$())
        u_SendMessageW(hList&,~WM_SETTEXT,0,Addr(clip$))

    endif

wend

FreeDLL hUser&
FreeDLL hGDI&
FreeDLL hKrnl&