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