Español
Fuente/ Codesnippets

Bestimmen Größer Laufwerkspartitionen Seguro

 

KompilierenMarcaSeparación
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerkspartitionen größer als 2 GB sicher bestimmen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Partitionsgrößen > 2 GB auslesen
Benötigt Profan 6.1 oder höher
Achtung:
Man muß mächtig aufpassen, um diese Funktion nutzen zu können,
die eigentlich 64 Bit-Integer erwartet.
Deklariert man zwischen und hinter den zu übergebenden Longints keine
weiteren 32 Bit Variablen (im Beispiel zur Verdeutlichung dummy*& genannt),
behauptet Profan fälschlich, die an die Funktion übergebenen Variablen
seien nicht deklariert.
Auf diese Dummys selbst darf man nicht zugreifen,
sonst meldet Profan wieder, sie seien nicht deklariert!
Selbiges passiert, wenn man eine 16 Bit-Variable(%) oder
64 Bit Variable(!) zwischen den zu übergebenden Variablen deklariert
Def GetDiskFreeSpaceEx(4) !KERNEL32,GetDiskFreeSpaceExA
Declare Size&,dummy1&,FreeAvail&,dummy2&,AvailToCall&,dummy3&
Declare Drive#

Proc LongOverflowToFloat

    Parameters long&
    Declare result!

    If Gt(long&,-1)

        Let result!=long&

    Elseif Equ(long&,-1)

        Let result!=Add(Mul($7FFFFFFF,2),1)

    ElseIf Lt(long&,-1)

        Let result!=Add(Mul($7FFFFFFF,2),long&)

    EndIf

    Return result!

EndProc

Cls
Dim drive#,4
String drive#,0=C:
GetDiskFreeSpaceEx(drive#,Addr(AvailToCall&),Addr(size&),Addr(FreeAvail&))
Dispose drive#
Decimals 0
LongOverflowToFloat Size&
Print !(0), Bytes ingesamt
LongOverflowToFloat FreeAvail&
Print !(0), Bytes frei ingesamt
LongOverflowToFloat AvailToCall&
Print !(0), Bytes verfügbar für aktuellen User
WaitInput
 
16.07.2007  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

2.175 Views

Untitledvor 0 min.
maroro08.11.2013

Themeninformationen

Dieses Thema ha 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie