| |
| |
|
Rolf
Koch | Hallöchen today frag I time so into round, I with Print never so much made have.
following approach to the problem:
we've with us one computer with printer on the camp.
If one customer one unit bought has and on the cash-desk payd has, so comes with us one entsprechender voucher from the printer, so we The washing-machine, TV or such one Zeugs raussuchen can.
now would I gladly one nebenbeilaufendes Tool write, which a Sound abspielt, if one such voucher from the printer comes.
means your, I could this somehow achieve? |
|
| |
| |
| |
|
|
 | which system?
there has yet someone such "Problem" [...]  
this is well WinSpool-Zeugs, here well something Source in VB: [...] |
|
| |
| |
| |
|
|
Rolf
Koch | |
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Rolf
Koch | | OK there kämpf I time - thanks iF ^^ |
|
| |
| |
| |
|
|
| Have unfortunately nothing To, but had gladly. ^^
Hehe look time guter Entry: [...] |
|
| |
| |
| |
|
|
| | here [...] lying too what. |
|
| |
| |
| |
|
|
Rolf
Koch | | Well there lying of course some, but How said would like I solely discern whether the printer straight druckt and the druckende Program is no Profanprogramm. it appear integrally short always one Druckerdialog and then druckt the part. |
|
| |
| |
| |
|
|
| | Hehe here look time [...] Although Pascal... |
|
| |
| |
| |
|
|
Frank
Abbing | You must really only kontinuierlich to a window with the Druckernamen search. at that Print becomes short one Trayicon eingeblendet, to the the (unsichtbare) Window heard.
One Another lane would the Search to the printer-Process. |
|
| |
| |
| |
|
|
| here Rolf so GEHTS if the PrintMon [...] (of supra the Link) in addition runs: 
CompileMarkSeparation
$cleq}
const myPMon.Title="PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
const myPMon.getMsgSize=sendMessage(hList,wm_getTextLength,0,0)
windowTitle "SoundPlugin: "+myPMon.Title
windowStyle 512 | 8 | 16 | 32
window 640,480
long h=findWindow(myPMon.Title)
casenot getText$(h)==myPMon.Title : end
long hList=myPMon.enumListFromPMonHWnd(h)
casenot h : end
print "hmkey... letz wait"
long myPMon.lastMsgSize=myPMon.getMsgSize,c
do {
waitInput 2500
case %key==2 : break
c=myPMon.getMsgSize
case myPMon.lastMsgSize==c : continue
myPMon.lastMsgSize=c
print ".";
whileLoop 3 {
sound 1000,20*loop
sound 500*loop,20*loop
sound 2000,20*loop
}
}
end
myPMon.enumListFromPMonHWnd(long h){
h=findWindowEx(h,,"Edit",)
casenot h : return null
return CompileMarkSeparationDECLARE __cf1&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("user32.dll"),"FindWindowExA")
WINDOWTITLE "SoundPlugin: "+"PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
WINDOWSTYLE 512 | 8 | 16 | 32
WINDOW 640,480
var H&=FINDWINDOW("PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]")
IFNOT GETTEXT$(H&)="PrinterMonitor v3 (c) 2001 by -=Assarbad=- [1.31]"
end
ENDIF
var HLIST&=MYPMON.ENUMLISTFROMPMONHWND(H&)
IFNOT H&
end
ENDIF
PRINT "hmkey... letz wait"
var MYPMON.LASTMSGSIZE&=SENDMESSAGE(HLIST&,$000E,0,0)
var C&=0
WHILE 1
WAITINPUT 2500
IF %KEY=2
BREAK
ENDIF
C&=SENDMESSAGE(HLIST&,$000E,0,0)
IF MYPMON.LASTMSGSIZE&=C&
CONTINUE
ENDIF
MYPMON.LASTMSGSIZE&=C&
PRINT ".";
WHILELOOP 3
SOUND 1000,20*&LOOP
SOUND 500*&LOOP,20*&LOOP
SOUND 2000,20*&LOOP
ENDWHILE
ENDWHILE
end
proc MYPMON.ENUMLISTFROMPMONHWND
PARAMETERS H&
H&=call(__cf1&,H&,0,"Edit",0)
IFNOT H&
RETURN 0
ENDIF
RETURN H&
endproc
If both Exen walk becomes gebeept once something in the reference on The printer happens... |
 |
| |
| |
| |
|
|
Rolf
Koch | the is correct Frank, however there the trouble, I do not on the computer in the Fa. proggen and testing can - means only here home.
through iF be Have I now [...] Downloaded and tested. perfect if I The beiliegende Exe starte. If I drucke then Better get going well recognized. however if I The 100 Files see and naja The 0 Idea from the Language ... ^^ |
|
| |
| |
| |
|
(287)
Deutsch
English
Français
Español
Italia