English
Forum

Mainwindow allways on top

 
- Page 1 -



maxpayne2001
Hello.

I have a question, probably can itself these integrally slight answer, but I komm not on it.

i'm thereby one Program To write, which one second Login for windows present should.

now would I gladly know, How I the Mainwindow (%HWND) as Allways on Top create can.

for your Help thanks I you now already.

LG

here give I time whom Source:
CompileMarkSeparation
 $P+
SET("ERRORLEVEL",0)
SET("TRUECOLOR",0)
 $I C:\XPROFAN11\LIB\PROFALT.INC
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE ENDE%,FirmenLogo&,Bild&,chbText%
DECLARE DLG&,edbUser&,edbPW&,chbUser&
DECLARE btnLogin&,btnLogout&

PROC Fenster

    WINDOWSTYLE 112
    WINDOWTITLE "Windows SecondLogin"
    WINDOW 0000,0000-%MaxX,%MaxY
    'CLS GETSYSCOLOR(15)
    CLS @RGB(0,0,21)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    DLG&=CREATE("DIALOG",%HWND,"Second Login",(%maxx/2 - 400/2),(%maxy/2 - 105/2),400,105)
    SETSTYLE DLG&,GETSTYLE(DLG&)- $80000
    SETFOCUS(%HWND)
    SETFOCUS(DLG&)
    @CREATE("TEXT",DLG&,"&Benutzername:",5,5,100,20)

    If chbText% = 0

        edbUser& = @CREATE("EDIT",DLG&,"",90,5,150,20)

    ElseIf chbText% = 1

        chbUser& = @CREATE("CHOICEBOX",DLG&,"",90,5,150,75)

    EndIf

    @CREATE("TEXT",DLG&,"&Passwort:",5,30,100,20)
    edbPW& = @CREATE("EDIT",DLG&,"",90,30,150,-20)
    btnLogin& = @CREATE("BUTTON",DLG&,"&Login",5,55,235,20)
    btnLogout& = @CREATE("BUTTON",DLG&,"L&ogout",245,5,145,20)
    'FirmenLogo& = @CREATE("HPic", -1, "FLogo.jpg")
    'DrawSizedPic FirmenLogo&, 0, 0 - %MaxX, %MaxY; 0
    'StartPaint DLG&
    'Bild& = @CREATE("HPic", -1, "FLogo2.jpg")
    'DrawSizedPic Bild&, 245,30 - 145, 45; 0
    'EndPaint

ENDPROC

PROC MainMenu

    EnableWindow %Hwnd,0

    WHILENOT ENDE%

        WAITINPUT

        If %KEY=2

            ENDE%= 1

        ELSEIF @CLICKED(btnLogin&)

        ELSEIF @CLICKED(btnLogout&)

            ENDE%=1

        ENDIF

    ENDWHILE

ENDPROC

chbText%=0
Fenster
4 href='./../../Function-References/XProfan/mainmenu/'>MainMenu
 
10/24/10  
 



« this Posting watts as Solution marked. »

simply:
CompileMarkSeparation
SetWindowPos %hWnd=x,y - xx,yy;-1'<-- letzter Parameter -1 !
>
 
10/24/10  
 




E.T.
Window Style mind !!
your Window can with old+tab leave go !!

(see Help: Window Style:
...
128 - the Program can weder with <Strg-Esc>, <Alt-Tab> yet <Alt-F4> leave go
...)
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
10/24/10  
 




maxpayne2001
iF (24.10.10)
simply:
CompileMarkSeparation
SetWindowPos %hWnd=x,y - xx,yy;-1'<-- letzter Parameter -1 !
>


If I the commands Window Style 128 use, becomes The Titelleiste displayed. the program should no Titelleiste having. furthermore diving at pressing of <ALT+TAB> The Taskbar on. gives it The Possibility this To prevent?
 
10/25/10  
 



Untitled (25.10.10)

If I the commands Window Style 128 use, becomes The Titelleiste displayed. the program should no Titelleiste having.


simply desired Stile (the Helpfile To entnehmen) add.

Untitled (25.10.10)
furthermore diving at pressing of <ALT+TAB> The Taskbar on. gives it The Possibility this To prevent?


fundamentally No but in the detail hängts of ex what the very go should...
 
10/25/10  
 




E.T.
only so on the side emerged:
CompileMarkSeparation
SET("ERRORLEVEL",0)
SET("TRUECOLOR",0)
 $I C:\XPROFAN11\LIB\PROFALT.INC
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE ENDE%,FirmenLogo&,Bild&,chbText%
DECLARE DLG&,edbUser&,edbPW&,chbUser&
DECLARE btnLogin&,btnLogout&

PROC Fenster

    WINDOWSTYLE 16+64+128
    WINDOWTITLE "Windows SecondLogin"
    WINDOW %MaxX,%MaxY
    CLS @RGB(0,0,255)
    USEFONT "MS Sans Serif",13,0,0,0,0
    DLG& = @Control("Dialog","",$54000000,(%maxX/2 - 200),(%maxY/2 - 50),400,110,%HWnd,1,%HInstance)
    @CREATE("GroupBox",DLG&,"Second Login",5,5,390,100)
    SETDIALOGFONT 1
    @Create("Text",DLG&,"Benutzername :",10,30,80,15)
    @CREATE("TEXT",DLG&,"Passwort :",10,60,100,20)
    edbPW& = @CREATE("EDIT",DLG&,"",90,55,150,-20)
    btnLogin& = @CREATE("BUTTON",DLG&,"&Login",10,80,230,20)
    btnLogout& = @CREATE("BUTTON",DLG&,"L&ogout",245,25,145,20)

    If chbText% = 0

        edbUser& = @CREATE("EDIT",DLG&,"",90,25,150,20)

    ElseIf chbText% = 1

        chbUser& = @CREATE("CHOICEBOX",DLG&,"",90,25,150,75)

    EndIf

    'FirmenLogo& = @CREATE("HPic", -1, "FLogo.jpg")
    'DrawSizedPic FirmenLogo&, 0, 0 - %MaxX, %MaxY; 0
    'StartPaint DLG&
    'Bild& = @CREATE("HPic", -1, "FLogo2.jpg")
    'DrawSizedPic Bild&, 245,30 - 145, 45; 0
    'EndPaint

ENDPROC

PROC MainMenu

    'EnableWindow %Hwnd,0'???

    WHILENOT ENDE%

        WAITINPUT

        If %KEY=2

            ENDE%= 1

        ELSEIF @CLICKED(btnLogin&)

        ELSEIF @CLICKED(btnLogout&)

            ENDE%=1

        ENDIF

    ENDWHILE

ENDPROC

chbText%=0
Fenster
MainMenuclass=s4 href='./../../Function-References/XProfan/end/'>end

on the side notice: somehow clutching the Window Style 128 not. (XP 12ß-R1) time look, Why...
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
10/26/10  
 




E.T.
Aahhh,
with
CompileMarkSeparation
...
WINDOW %MaxX,%MaxY
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
pre>

Better get going TOP-MOST, reacted but still on old+tab...

... but is already first at least so pushy, not wech to go
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
10/26/10  
 




maxpayne2001
Hello.

you have me demand, for what this program well his ought to.

Ersteinmal thanks I you for your Help.

trouble where through this program come into being must:
in the internet has one Friends me a Root-Server, the of a Provider set becomes. into last two Monaten had we on the Server several Eindringlinge had. The Root-Server standing with the BBS Microsoft windows Server 2008 RC2 x64 available.

we've whom Server now in the meantime 5time new install must.
somehow having we but no pleasure More hereon always each time the Server new To installeren. Achja a Firewall was too installs. however has the Hacker The Remotkennwörter jedesmal überschrieben.

we log us always on the Server with the Remotedesktop of Microsoft windows one. I have of course already something other suggested, but my friend meant, that it only whom Remotedesktop use wants, since the others Opportunities not functions having.

I thought me then, naja, Remotedesktop everything wonderful, The Kennwörter can überschreiben go, but I wants to so arrange, if itself someone einloggt, that automatically this program launched and is to the user and to the Kennwort asks, that not the same his becomes, as the user with the Remoteanmeldung is.

gives the User the Password thrice wrong one or The Time to that prompt verstreicht, becomes the Remotedesktop exits, there the User immediate ausgeloggt becomes.

so now know you, why I this program here write.

here another couple ask:

1. is it possible whom actually eingeloggten user traceable To make?
2. can I The IP-address the current eingeloggten User detect?
3. would be it possible, The Password-Files Windows again back To write To let, if the User the Password number of times wrong association has and if I before a copy through this program prepares have?

i'm already very tensely on your Answer.

LG
 
10/27/10  
 



Hi,

the sound sooner thereafter one nuclear power plant with of/ one string repair To want.

(not the not possible would, but...)

look time vlt.: [...] 
 
10/27/10  
 




ByteAttack
iF (27.10.10)
Hi,

the sound sooner thereafter one nuclear power plant with of/ one string repair To want.

(not the not possible would, but...)



you have well never MacGyver seen? The can the !!!
 
Website:  [...] 
Facebook:  [...] 
10/27/10  
 




E.T.


iF (27.10.10)
Hi,

the sound sooner thereafter one nuclear power plant with of/ one string repair To want.

(not the not possible would, but...)

you have well never MacGyver seen? The can the !!!


but only with 'ner string neither !!
One Kaugummi must always with thereby his...
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
10/27/10  
 



and a zerbrochene goggles!
 
10/27/10  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

11.980 Views

Untitledvor 0 min.
Paul Glatz01/11/15
E.T.11/06/14
trusel09/01/13
GDL02/11/11
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie