Deutsch
Quelltexte/ Codesnippets

Auslesen Datentr

 

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

 
21.12.2005  
 



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...
 
21.12.2005  
 



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.

 
21.12.2005  
 



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.
 
22.12.2005  
 




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.
 
23.12.2005  
 



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.
 
23.12.2005  
 




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.
 
23.12.2005  
 




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  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

10.768 Betrachtungen

Unbenanntvor 0 min.
Helmut17.07.2018
p.specht31.08.2016
maroro08.11.2013
ho.schu03.02.2013
Mehr...

Themeninformationen

Dieses Thema hat 3 Teilnehmer:

unbekannt (4x)
Jac de Lad (3x)
iF (3x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie