Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Größe auf dem Datenträger ermitteln.

   
    by Sharky, 20. Okt 2004
  *Grummel*
  Warum habe ich das übersehen? Da hätte ich mir die Arbeit heute sparen können ;-)
• Forum: Programmieren allgemein

  Re: Größe auf dem Datenträger ermitteln.

   
    by Sharky, 20. Okt 2004
  Hai Stephan ;-)
  
  ich habe das ganze jetzt mal erweitert:
  function GetRealFileSize(const aFileName: string): Cardinal;
  {**********************************************************}
  // Diese Funktion ist von Daniel B. aus der Code-Library
  // http://www.delphipraxis.net/post52937.html#52937
  // Es wird geprüft ob ein Windows auf NT-Basis läuft
  function NTSystem: Boolean;
  var
• Forum: Programmieren allgemein

  Re: Größe auf dem Datenträger ermitteln.

   
    by Sharky, 19. Okt 2004
  Hai Steve,
  
  danke für den Hinweis (hihi ich kompriemiere nie die Laufwerke, darum habe ich das nicht bedacht).
  So müsste es jetzt aber stimmen oder?
  function GetRealFileSize (const aFileName : String) : Cardinal;
  var
  ClusterSize: Cardinal;
  SectorPerCluster : Cardinal;
  BytesPerSector : Cardinal;
  NumberOfFreeClusters : Cardinal;
• Forum: Programmieren allgemein

  Re: Größe auf dem Datenträger ermitteln.

   
    by Sharky, 19. Okt 2004
  Und jezt noch als Funktion :stupid:
  function GetRealFileSize (const drive : Char; const filesize : Cardinal) : Cardinal;
  var
  ClusterSize: Cardinal;
  SectorPerCluster : Cardinal;
  BytesPerSector : Cardinal;
  NumberOfFreeClusters : Cardinal;
  TotalNumberOfClusters: Cardinal;
  realsize : Cardinal;
  begin
• Forum: Programmieren allgemein

  Re: Größe auf dem Datenträger ermitteln.

   
    by Sharky, 19. Okt 2004
  So ;-)
  procedure TForm1.Button1Click(Sender: TObject);
  var
  ClusterSize: Cardinal;
  SectorPerCluster : Cardinal;
  BytesPerSector : Cardinal;
  NumberOfFreeClusters : Cardinal;
  TotalNumberOfClusters: Cardinal;
  begin
  GetDiskFreeSpace(PChar('c:\'), SectorPerCluster,BytesPerSector, NumberOfFreeClusters, TotalNumberOfClusters);