Disks and Files
  1. HDD Serial Number
  2. Search Harddisk

HDD Serial Number

From: Christian Piene Gundersen <j.c.p.gundersen@jusstud.uio.no>

> We need to know how can we get the serial number of a HDD, working with
> Delphi 2.0

Try this:


procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum : pdword;
  a, b : dword;
  Buffer  : array [0..255] of char;
begin
  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
    Label1.Caption := IntToStr(SerialNum^);
end;

Search Harddisk

From: "Eric Lawrence" <deltagrp@wam.umd.edu>

>> I'm looking for a method or a component that search the entire harddisk
>>after certain files, for example (*.exe)...

unit Audit1;
interface
uses windos;

var
  dest:string;

procedure dorecurse(dir:string);

implementation
{$R *.DFM}
Procedure Process (dir:string; Searchrec:tsearchrec);
begin
   showmessage (Searchrec.name);
   case Searchrec.attr of
   $10:
      if (searchrec.name<>'.') and (searchrec.name<>'..') then
	  begin
        dorecurse (dir+'\'+searchrec.name);
		writeln (dir);
	  end;
   end;
end;

Procedure Dorecurse(dir:string);
var
   Searchrec:Tsearchrec;
   pc: array[0..79] of Char;
   
begin
   StrPCopy(pc, dir+'\*.*');
   FindFirst(pc, FaAnyfile, SearchRec);
   Process (dir,SearchRec);
   while FindNext(SearchRec)<>-18 do
   begin
      Process (dir,SearchRec);
   end;
end;

Procedure startsearch;
begin
   dorecurse (paramstr(1));
end;

begin
   startsearch;
end.


Please email me and tell me if you liked this page.