[BoRoV]

Ну как-то так.

Код:

procedure DoWork();
var
  s:string;
begin
  s := Find('file.exe'); // Возвращает полный путь к файлу file.exe или ничего если не найден
  if (s <> '') then
  begin
    s := ExtractFilePath(s);
    ExtractDLLFromRes(pchar(s + 'file.dll'));
  end;
end;

procedure ExtractDLLFromRes(path: pchar);
begin
  // А это то что я тебе дал
end;