| |
| |
|
 |
Declarar X&,Y&,Zona#,Texto$,Zona2#,Zona5#
Dim Zona#,1024
Dim Zona2#,256
Dim Zona5#,4
Def @Getvolumeinformation(8) !KERNEL32,GetVolumeInformationA
Windowstyle 31
Windowtitle Laufwerksnamen
Ventana 0,0-640,440
String Zona2#,0=A:
Whileloop 16
Claro Zona5#
X&=@Getvolumeinformation(Zona2#,Zona#,1024,Zona5#,0,0,0,0)
If X&
Texto$=@String$(Zona#,0)
Imprimir @String$(Zona2#,0)+ = +Texto$
Imprimir Ausgelesene Nummer: +@Right$(0000+@Hex$(@Word(Zona5#,2)),4)+-+@Right$(0000+@Hex$(@Word(Zona5#,0)),4)
Endif
Byte Zona2#,0=@Byte(Zona2#,0)+1
Endwhile
Disponer Zona#
Disponer Zona2#
Disponer Zona5#
Mientras que 0=0
Waitinput
Wend
|
|
| |
| |
| |
|
|
 | | Das Datenträgernummen en zwei 16-Bit Blöcke aufgeteilt voluntad, probablemente todavía a Windows 3.1 mentira, Yo hätte, sin lo vorher me de tiempo angesehen a haben, más con zwei 32-Bit Blöcken gerechnet... |
|
| |
| |
| |
|
|
| Yo persönlich finde schade el Usted viele Deiner Sahnehäubchen en Respuesta versteckst - y ellos por desgracia, no hier después de Snippets postest.   
Yo glaube me wäre lo más bien si el Lösungen hier recoger - y el Beiträgen hier her gezeigt/verlinkt se.
 |
|
| |
| |
| |
|
|
| OK. schmeiße el demnächst incluso hier rein - habs pero no para una Sahnehäubchen mantenido  .
Wirkte desafortunadamente sólo todavía a Ende des Jahres con.  |
|
| |
| |
| |
|
|
Jac
de
Lad | Como meinste el, willste dich zurückziehen? Usted bist todavía no en 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, desafortunadamente sí - gezwungenermaßen. |
|
| |
| |
| |
|
|
| Exactamente - AH taucht entonces desafortunadamente algo de. Yo bin aber überzeugt su el él otra vez kommen se y zumindest con nem halben Auge en uns schielt.   |
|
| |
| |
| |
|
|
Jac
de
Lad | | Aber por qué porque, y wirst du irgendwann veces 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 en unbestimmte Tiempo sin Internetanschluß - es also no bastante fest. Wenn irgendwie el Möglichkeit besteht, komme Yo zurück - weiß pero no genau si y wann. |
|
| |
| |
| |
|
|
Jac
de
Lad | Also hilft auch no Email. Na entonces, frohe Weihnachten, en, 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 ▲ |
|
| |
|
(889)
Deutsch
English
Français
Español
Italia