| |
| |
|
Nico
Madysa | Hello together,
somehow scheitere I straight in a Billigbeispiel for API RegisterClassEx.
CompileMarkSeparationStruct WNDCLASSEX = cbSize&,style&,lpfnWndProc&,cbClsExtra&,cbWndExtra&,hInstance&,hIcon&,hCursor&,hbrBackground&,\
lpszMenuName&,lpszClassName&,hIconSm&
proc Wndproc
parameters wnd&,msg&,wp&,lp&
return External("USER32","DefWindowProcA",wnd&,msg&,wp&,lp&)
endproc
cls
declare triangle#,trname$ : Dim triangle#,WNDCLASSEX : trname$ = "MyClass"
With Triangle#
.cbSize& = SizeOf(triangle#)
.style& = 3'CS_HREDRAW |CS_VREDRAW
.lpfnWndProc& = ProcAddr(Wndproc,4)
.cbClsExtra& = 0
.cbWndExtra& = 0
.hInstance& = %hInstance
.hIcon& = External("USER32","LoadIconA",0,$7F00)'IDI_APPLICATION
.hCursor& = External("USER32","LoadCursorA",0,$7F00)'IDC_CURSOR
.hbrBackground& = 1'COLOR_BACKGROUND
.lpszMenuName& = 0
.lpszClassName& = Addr(trname$)
.hIconSm& = .hIcon&
EndWith
var atom& = External("USER32","RegisterClassExA",triangle#)
print WinError$(%WinError)
Dispose triangle#
whilenot IsKey(27)
waitinput
wend
atom& = External("USER32","UnregisterClassA",trname$,%hInstance)
print WinError$(%WinError)
waitinput
end
nothing besonderes thereby, but nevertheless becomes me the Error outputted: „Das system can The angegebene File not finden“, though no File indicated is. supplant of LoadIcon/LoadCursor has nothing used, Umstieg on XPSE and NProcs just as little. I have The supposition, that it on the ProcAddr lying. sees Perhaps someone my Error? |
|
| |
| |
| |
|
|
Andreas
Miethe
 | | functions by me correct ! |
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...]  | 04/04/11 ▲ |
|
| |
|
|
Nico
Madysa |  which Profan-Version have you got because? not, that it yet some bow is. |
|
| |
| |
| |
|
|
RGH | means by me (windows 7, 32 bit, XProfan X2) functions it too.
Greeting
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 04/04/11 ▲ |
|
| |
|
|
Nico
Madysa | have soeben The by me gelinkte Exe on one others computer ausprobiert. The Error must somewhere in my Betriebssystem lying. means of course, I correctly. program have, can but still a seltsamen aftertaste back.  |
|
| |
| |
| |
|
|
Andreas
Miethe
| Nico Madysa (04.04.11)
which Profan-Version have you got because? not, that it yet some bow is.
with XProfan10,11,X2 and
Win7,32bit
tested. no trouble. |
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 04/04/11 ▲ |
|
| |
|
|
Sebastian
Sprenger | | by me happens the same thing How with Nico - XProfan 11.2a, Vista Home - even if I the program as Admin starte, whom Kompatiblitätsmodus Windows 95 or on XP SP2 place and the visuellen Designs and Desktopgestaltung deaktiviere... |
|
| |
|  Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32 Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM Windows Me, 1.8 Ghz, 256 MB RAM | 04/04/11 ▲ |
|
| |
|
|
Nico
Madysa | even with iF geskypet and he's the trouble to langer Search discover: The Return Value of RegisterClassEx is mismatched zero, means has everything worked. The Content of %WinError is so completely of no moment. Jaja, time again whom woods not sheer trees seen.
nevertheless thanks for eure Mühen! |
|
| |
| |
| |
|
(137)
Deutsch
English
Français
Español
Italia