| |
| |
|
 |
Declare X&,Y&,Bereich#,Text$,Bereich2#,Bereich5#
Dim Bereich#,1024
Dim Bereich2#,256
Dim Bereich5#,4
Def @Getvolumeinformation(8) !KERNEL32,GetVolumeInformationA
Windowstyle 31
Windowtitle Laufwerksnamen
Window 0,0-640,440
String Bereich2#,0=A:
Whileloop 16
Clear Bereich5#
X&=@Getvolumeinformation(Bereich2#,Bereich#,1024,Bereich5#,0,0,0,0)
If X&
Text$=@String$(Bereich#,0)
Print @String$(Bereich2#,0)+ = +Text$
Print Ausgelesene Nummer: +@Right$(0000+@Hex$(@Word(Bereich5#,2)),4)+-+@Right$(0000+@Hex$(@Word(Bereich5#,0)),4)
Endif
Byte Bereich2#,0=@Byte(Bereich2#,0)+1
Endwhile
Dispose Bereich#
Dispose Bereich2#
Dispose Bereich5#
While 0=0
Waitinput
Wend
|
|
| |
| |
| |
|
|
 | | Das Datenträgernummen in zwei 16-Bit Blöcke aufgeteilt werden, wird wohl noch an Windows 3.1 liegen, ich hätte, ohne es vorher mir mal angesehen zu haben, eher mit zwei 32-Bit Blöcken gerechnet... |
|
| |
| |
| |
|
|
| Ich persönlich finde schade das Du viele Deiner Sahnehäubchen in Antworten versteckst - und sie leider nicht hier nach Snippets postest.   
Ich glaube mir wäre es lieber wenn sich die Lösungen hier sammeln - und in den Beiträgen hier her gezeigt/verlinkt wird.
 |
|
| |
| |
| |
|
|
| OK. schmeiße das demnächst selbst hier rein - habs aber nicht für ein Sahnehäubchen gehalten  .
Wirkte hier leider nur noch bis Ende des Jahres mit.  |
|
| |
| |
| |
|
|
Jac
de
Lad | Wie meinste das, willste dich zurückziehen? Du bist doch noch nicht in Rente! DAS KANNST DU NICHT MACHEN!!!   |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 22.12.2005 ▲ |
|
| |
|
|
| | Doch, leider ja - gezwungenermaßen. |
|
| |
| |
| |
|
|
| Genau - AH taucht dann leider etwas ab. Ich bin aber überzeugt davon das er wieder kommen wird und zumindest mit nem halben Auge auf uns schielt.   |
|
| |
| |
| |
|
|
Jac
de
Lad | | Aber warum denn, und wirst du irgendwann mal wiederkommen? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 23.12.2005 ▲ |
|
| |
|
|
| | Bin auf unbestimmte Zeit ohne Internetanschluß - steht also nicht ganz fest. Wenn irgendwie die Möglichkeit besteht, komme ich zurück - weiß aber nicht genau ob und wann. |
|
| |
| |
| |
|
|
Jac
de
Lad | Also hilft auch keine Email. Na dann, frohe Weihnachten, auf, dass du bald wiederkommst! (Mit vielen neuen Ideen!)
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 23.12.2005 ▲ |
|
| |
|
(903)
Deutsch
English
Français
Español
Italia