| |
| |
|
 |
Declare X&,Y&,area#,Text$,area2#,area5#
Dim area#,1024
Dim area2#,256
Dim area5#,4
Def @Getvolumeinformation(8) !KERNEL32,GetVolumeInformationA
Windowstyle 31
Windowtitle Laufwerksnamen
Window 0,0-640,440
String area2#,0=A:
Whileloop 16
Clear area5#
X&=@Getvolumeinformation(area2#,area#,1024,area5#,0,0,0,0)
If X&
Text$=@String $(area#,0)
Print @String $(area2#,0)+ = +Text$
Print Ausgelesene number: +@Right$(0000+@Hex$(@Word(area5#,2)),4)+-+@Right$(0000+@Hex$(@Word(area5#,0)),4)
Endif
byte area2#,0=@byte(area2#,0)+1
Endwhile
Dispose area#
Dispose area2#
Dispose area5#
While 0=0
Waitinput
Wend
|
|
| |
| |
| |
|
|
 | | the Datenträgernummen in two 16-bit Blöcke zoned go, becomes well yet on windows 3.1 lying, I had, without it before me time respected to have, sooner with two 32-bit Blöcken calculated... |
|
| |
| |
| |
|
|
| I personally find pity the You many your Sahnehäubchen in Answer cache - and unfortunately not here to Snippets postest.   
I faith me would it rather if the Solutions here collect - and whom Posts here since viewed/verlinkt becomes.
 |
|
| |
| |
| |
|
|
| OK. schmeiße the soon self here mere - habs but not for a Sahnehäubchen held  .
Wirkte here unfortunately only yet To end the year with.  |
|
| |
| |
| |
|
|
Jac
de
Lad | How meinste the, willste you retire? you are still not pension! DAS KANNST DU NOT 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 | 12/22/05 ▲ |
|
| |
|
|
| | still, unfortunately Yes - gezwungenermaßen. |
|
| |
| |
| |
|
|
| very - AH diving then unfortunately something ex. i'm but convincing of it the it again come and is at least with nem half-way eye on us leering.   |
|
| |
| |
| |
|
|
Jac
de
Lad | | but Why because, and become You sometime time come back? |
|
| |
| 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 | 12/23/05 ▲ |
|
| |
|
|
| | be on vaguely Time without Internetanschluß - standing means not integrally solid. If somehow The Possibility exists, come I back - white but not very whether and when. |
|
| |
| |
| |
|
|
Jac
de
Lad | means helps too no Email. Well then, glad christmas, on, that You soon wiederkommst! (with many new ideas!)
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 | 12/23/05 ▲ |
|
| |
|
(889)
Deutsch
English
Français
Español
Italia