Procura De Dlls

[Guest Marcos Silva]

Pessoal, como eu faço para saber se existe ou não, um determinado arquivo em um diretório do computador???

até mais pessoal!!!

[Corposemalma]

Tenta esse: (o nome pode ser qualquer um. )

Begin
  If FileExists('c:\Frankstein.monstro') = true then
  showmessage('Está vivo!!! Está vivo!!! AHUAHAUHAUHAUH')
end;

[Guest Marcos Silva]

beleza Corposemalma, mas vamos supor que não exista o arquivo procurado e ele esteja em um cd, como eu faço para copiar o arquivo do CDRom para a pasta system, por exemplo ???

T+

[Corposemalma]

Duas maneiras diferentes:

Begin
  If FileExists('c:\windows\system\hack.dll') = true then
  begin
    showmessage('O arquivo já existe')
  end
  else
  begin
    try
      CopyFile('d:\hack.dll','c:\windows\system\hack.dll',True)
      showmessage('Arquivo copiado com sucesso')
    end
    except
      showmessage('impossível copiar arquivo')
    end;
  end;
end;

ou usando APIs

var FO:TSHFileOpStruct;
begin
  If FileExists('c:\windows\system\hack.dll') = true then
  begin
    showmessage('O arquivo já existe')
  end
  else
  begin
    try
      FillChar(FO, SizeOf(FO), 0);
      FO.wFunc := FO_COPY;
      FO.pFrom := 'Caminho origem';
      FO.pTo := 'Caminho destino';
      FO.fFlags := FOF_ALLOWUNDO;
      SHFileOperation(FO);
      showmessage('Arquivo Copiado com Sucesso')
    end
    except
      showmessage('impossível copiar arquivo')
    end;
  end;
end;

[Guest Marcos Silva]

valeu Corposemalma!!

T+