[delphi] hardeschijf doorzoeken

[JSchut]

ik ben bezig met een proggie dat alle mp3's op je harde schijf opzoekt en dat je ze dan ineen lijst zet en ze af kan spelen.

maar ik heb gezocht en gezocht maar niks gevonden

ik ben nieuw met delphi

weet iemand misschien een plek waar uitgelegd word hoe het werkt

[bigtree]

Op tweakers vind je wel een link. Kwestie van zoeken:
[topic=34527/1/25]

Maar Winamp kan dit ook hoor.

[JSchut]

ok dank je dat is gelukt maar nu moet ik echt een hardeschijf selecteren ik kan dus alleen maar bijv C:\ zeggen

kan het ook op een manier dat je alle hd's doorzoekt

[Grum]

1 voor 1 alle drives afgaan ?

der zullen vast wel functies zijn die controleren of een drive wel of niet bestaat en of het een removable device is

[bigtree]

Ja hoor, open een zoekscherm in windows (F3), zoek naar *.mp3 en sleep alle resultaten naar winamp.

[Grum]

Als je wat vriendelijker voor je pc bent dan doe je rechtermuis -> Enqueue in WinAmp

[elevator]

Op vrijdag 05 april 2002 09:51 schreef JSchut het volgende:
ik ben bezig met een proggie dat alle mp3's op je harde schijf opzoekt en dat je ze dan ineen lijst zet en ze af kan spelen.

code:

type
  TNewDriveNumber = 0..25;
  TNewDriveSet = set of TNewDriveNumber;


function SearchFile(StartDir: String; S: String): String;
var DirInfo : TSearchRec;
    TempRes : String;
    Tmperror: Longint;
begin
  {-- initialize some variables ---------------------------------------------}
  SearchFile := '';
  TempRes := '';

  {-- make sure the screen is updated ---------------------------------------}
  Application.ProcessMessages;

  {-- go for a cheap success if possible ------------------------------------}
  TmpError := FindFirst(StartDir+S, faAnyFile, DirInfo);
  If TmpError = 0 then
    TempRes := StartDir + DirInfo.Name;
  SysUtils.FindClose(Dirinfo);

  If TempRes<>'' then
    begin
    SearchFile := Tempres;
    EXIT;
    end; { found }

  {-- go search everything --------------------------------------------------}
  TmpError := FindFirst(StartDir+'*.*', faAnyFile, DirInfo);
  While TmpError=00 do
    begin
      If ((DirInfo.Attr AND faDirectory) <> 0) AND
        (DirInfo.Name <> '.') AND (DirInfo.Name <> '..') then
          begin
            TempRes := SearchFile(StartDir + DirInfo.Name + '\', S);
            If TempRes <> '' then Break;
          end; { Directory }

      TmpError := FindNext(DirInfo);
    end; { While }
  FindClose(Dirinfo);

  {-- and return our result -------------------------------------------------}
  SearchFile := TempRes;
end; { func. SearchFile }


function SearchDrivesFor(var FName: String; var UpdLabel: TLabel): Boolean;
var DriveBits: TNewDriveSet;
    Counter  : Longint;
    Tmp : Longint;
    TmpStr   : String;
begin
  {-- initialize variables ---------------------------------------------------}
  SearchDrivesFor := FALSE;
  
  {-- build a list with all actice drives ------------------------------------}
  Longint(DriveBits) := GetLogicalDrives;

  {-- first count the number of drives we expect -----------------------------}
  Tmp := 0;
  for Counter := 2 to 25 do  { start at C:-drive }
    if Counter in DriveBits then
    begin
      Inc(Tmp);
    end; { if }
  IntroForm.ProgressBar1.Position := 0;
  IntroForm.ProgressBar1.Max := Tmp;
  Tmp := 0;

  {-- now loop through all drives, update the label and search it ------------}
  for Counter := 2 to 25 do
    if Counter in DriveBits then
    begin
      {-- Update some labels -----------------------------------------------}
      UpdLabel.Caption := Format('Searching in "%s:\"', [Chr(Counter + 65)]);
      Application.ProcessMessages;

      {-- actually look for the file ---------------------------------------}
      TmpStr := SearchFile(Chr(Counter + 65) + ':\', FName);
      if TmpStr <> '' then
        begin
        {-- set the result -----------------------------------------------}
        SearchDrivesFor := TRUE;
        FName := TmpStr;

        {-- and set the progress bar to succeed --------------------------}
        IntroForm.ProgressBar1.Position := IntroForm.ProgressBar1.Max;

        {-- and exit this loop -------------------------------------------}
        EXIT;
        end; { if }

      {-- update the progressbar -------------------------------------------}
      Inc(Tmp);
      IntroForm.ProgressBar1.Position := Tmp;
    end; { for }
end; { proc. SearchDrivesFor }