| |
|
|
|
Déclarer X&,Y&,Bereich#,Text$,Bereich2#,Bereich5#
Faible Bereich#,1024
Faible Bereich2#,256
Faible Bereich5#,4
Def @Getvolumeinformation(8) !KERNEL32,GetVolumeInformationA
Windowstyle 31
Windowtitle Laufwerksnamen
Fenêtre 0,0-640,440
String Bereich2#,0=A:
Whileloop 16
Claire Bereich5#
X&=@Getvolumeinformation(Bereich2#,Bereich#,1024,Bereich5#,0,0,0,0)
Si X&
Text$=@String$(Bereich#,0)
Imprimer @String$(Bereich2#,0)+ = +Text$
Imprimer Ausgelesene numéro: +@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#
Tandis que 0=0
Waitinput
Wend
|
|
|
| |
|
|
|
| cela Datenträgernummen dans deux 16-Bit Blöcke aufgeteilt volonté, wird wohl encore à Windows 3.1 liegen, je hätte, sans es auparavant mir la fois angesehen trop avons, plutôt avec deux 32-Bit Blöcken gerechnet... |
|
|
| |
|
|
|
| je personnelle finde tant pis cela Du viele Deiner Sahnehäubchen dans répondre versteckst - et vous malheureusement pas ici pour Snippets postest.
je crois mir wäre es lieber si sich qui Lösungen ici ramasser - et dans den Beiträgen ici her gezeigt/verlinkt wird.
|
|
|
| |
|
|
|
| OK. schmeiße cela bientôt selbst ici rein - habs mais pas pour un Sahnehäubchen gehalten . Wirkte ici malheureusement seulement encore jusqu'à Ende des Jahres avec. |
|
|
| |
|
|
|
Jac de Lad | comment meinste cela, willste toi zurückziehen? tu es doch encore pas dans 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, malheureusement oui - gezwungenermaßen. |
|
|
| |
|
|
|
| oui c'est ca - AH taucht ensuite malheureusement quelque chose ab. je suis mais überzeugt en cela il wieder venons wird et zumindest avec nem halben Auge sur uns schielt. |
|
|
| |
|
|
|
Jac de Lad | mais pourquoi car, et wirst du irgendwann la fois revenir? |
|
|
| 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 ▲ |
|
|
|
|
| suis sur unbestimmte Zeit sans Internetanschluß - steht alors pas entier fest. si irgendwie qui Possibilité besteht, viens je zurück - sais mais pas oui c'est ca si et quand. |
|
|
| |
|
|
|
Jac de Lad | alors hilft aussi aucun Email. Na ensuite, frohe Weihnachten, sur, dass du bientôt wiederkommst! (avec vielen neuen idées!)
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 ▲ |
|
|
|