| |
| |
|
Nico
Madysa | ¡Hola miteinander,
irgendwie scheitere Yo gerade a una Billigbeispiel para el API RegisterClassEx.
KompilierenMarcaSeparaciónStruct 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
Nichts besonderes esta, aber trotzdem se me el Fehler ausgegeben: „Das Sistema kann el angegebene Expediente no finden“, obwohl no Expediente angegeben es. Ersetzen de LoadIcon/LoadCursor ha nichts genutzt, Umstieg en XPSE y NProcs ebensowenig. Yo habe el Vermutung, dass lo a el ProcAddr liegt. Sieht tal vez alguien media Fehler? |
|
| |
| |
| |
|
|
Andreas
Miethe
 | | Funktioniert en me einwandfrei ! |
|
| |
| 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.2011 ▲ |
|
| |
|
|
Nico
Madysa |  Welche Profano-Versión hast du porque? No, dass lo todavía irgendein Bug es. |
|
| |
| |
| |
|
|
RGH | Also en me (Windows 7, 32 Bit, XProfan X2) funktioniert lo auch.
Saludo
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.2011 ▲ |
|
| |
|
|
Nico
Madysa | Posesiones soeben el en me gelinkte Exe en una otro Rechner ausprobiert. Der Fehler muss irgendwo en mi Betriebssystem mentira. Heißt zwar, dass Yo correcto programmiert habe, lässt aber doch una seltsamen Nachgeschmack zurück.  |
|
| |
| |
| |
|
|
Andreas
Miethe
| Nico Madysa (04.04.11)
Welche Profano-Versión hast du porque? No, dass lo todavía irgendein Bug es.
Mit XProfan10,11,X2 y
Win7,32Bit
getestet. Kein Problema. |
|
| |
| 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.2011 ▲ |
|
| |
|
|
Sebastian
Sprenger | | En me passiert dasselbe como en Nico - XProfan 11.2a, Vista Home - auch si yo el Programa como Admin starte, el Kompatiblitätsmodus en Windows 95 oder en XP SP2 lugar y el visuellen Designs y 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.2011 ▲ |
|
| |
|
|
Nico
Madysa | Eben con IF geskypet y él ha el problema después de langer Búsqueda entdeckt: Der Rückgabewert de RegisterClassEx es ungleich Null, also ha alles geklappt. Der Inhalt de %WinError es así völlig bedeutungslos. Jaja, veces otra vez el Wald antes lauter Bäumen no gesehen.
Trotzdem danke para eure Mühen! |
|
| |
| |
| |
|
(168)
Deutsch
English
Français
Español
Italia