| |
| |
|
Thomas
Freier | Möchte una Copy vom Dialogfenster hacer. Klapp auch, si la Speicherpfad con GetDir$(@) y no con $PROGDIR angegeben se. Oder hay una elegantere Solución?
KompilierenMarcaSeparaciónBeispiel
Kopiert Fensterelemte
Def @Getwindowrect(2) !USER32, GetWindowRect
Def keybd_event(4) !USER32,keybd_event
Def IsIconic(1) !USER32,IsIconic
Def CaptureScreen(0) keybd_event($2C,1,0,0)
Def CaptureActiveWindow(0) keybd_event($2C,0,0,0)
Def SetForegroundWindow(1) !USER32,SetForegroundWindow
Declare hdlg&,endebutton%,ende%,copybutton%,old_file$,text$
Cls
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
hdlg&=CreateDialog(%hwnd,Dialog,50,114,498,408)
endebutton%=CreateButton(hdlg&,Ende,200,180,60,23)
copybutton%=CreateButton(hdlg&,H-Copy,200,220,60,23)
old_file$ = GetDir$(@)
old_file$ = $ProgDir
WhileNot ende%
WaitInput
Case Getfocus(endebutton%): Let ende%=1
If Getfocus(copybutton%)
SetActiveWindow(hdlg&)
CaptureScreen()
MCLS 500,500
StartPaint -1
ClipLoadBmp 0,0;0
MCopyBmp 0,0-%maxX,%maxY > 0,0;0
text$= old_file$ + \ + Date$(3) + - + Translate$(Time$(0),:,-) + .BMP
SaveBmp text$,0,0-500,500
ClearClip
EndPaint
EndIf
Wend
|
 |
| |
| |
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 13.03.2009 ▲ |
|
| |
|
|
Thomas
Freier | | Sí Jörg, se en el *.exe en beiden Fällen el richtige Pfad adecuado. Nur una vez eben una vacío *.bmp producido. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Nein, Usted hast el Ergebnisse no correcto verglichen!! Sie zeigen diferente Ergebnisse. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 13.03.2009 ▲ |
|
| |
|
|
Thomas
Freier | | Denke ya. Vermute ahora el Ursache beim aktiven Ventana, porque viele Starts nacheinander führen a 50%él Trefferquote. Pero unbefriedigend y yo muß más forschen. |
|
| |
| |
| |
|
|
 | @Thomas:
Usted musst unterscheiden zwischen el Directorio en el el EXE liegt y el Umgebungsverzeichnis des laufenden Prozesses.
Wechselst Usted z.B. por chDir  (getDir ) después de Laufwerk D:, entonces liegt el Exe $progDir sí trotzdem todavía z.B. en Laufwerk C:.
Musst siempre z.B. por chDir incluso sicherstellen, dass se el Umgebungsverzeichnis siempre al deseado Ort befindet, porque una Umgebungsverzeichnis bajo cierto Umständen auch geerbt voluntad kann. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Nein - es alles viel einfacher. Schau Usted el Ergebnis a.
Erstens:
Im Interpreter kann no trabajo, como entonces evtl. vom ProfEd el Projektverzeichnis como aktueller Pfad eingestellt es. $PROGDIR son entonces aber natürlich el Profnaverzeichnis zurück. Yo vermute aber veces, el war no el problema.
Zweitens:
Wenn also el gesuchte Pfad korrekt es, hilft lo sólo, se el Ergebnis otra vez genau anzusehen y esta antes allem el letzte Signo a berücksichtigen.
En GetDir$() es el el letzte Buchstabe des Programmpfades y en $PROGDIR?
Si usted entonces Su Stringaddition ansiehst, podría Usted evtl. una Licht aufgehen:
KompilierenMarcaSeparaciónold_file$ + \ + Date$(3) > |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 13.03.2009 ▲ |
|
| |
|
(1.546)
Deutsch
English
Français
Español
Italia
