500+ FAQ по Delphi

Перейти на: Главную | Индексную | Предыдущую | Следующую страницу
как бороться с конденсатом на окнах

Есть какая-либо функция или вызов API для поиска загрузочного диска?

Я нашел это в регистрах:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup
Значение "BootDir" и есть искомая величина.

Я ищу метод или компонент, производящий поиск каких-либо файлов на винчестере, например, (*.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.


Материалы находятся на сайте http://cracklab.narod.ru/faq/


Создатель этого HTML файла не претендует на авторство вопросов/ответов представленных в нём, не отвечает за их содержание и достоверность, а также за последствия использования программных кодов , полученных из этого HTML файла. Также не принимаются претензии относительно не размещённой информации об авторе каждого конкретного FAQ'а. Любые другие вопросы присылайте на bad_guy@cracklab.ru (обращаться к Bad_guy'ю).
Hosted by uCoz