Eu uso uma "receitinha de bolo" que sempre funciona para mim.
Segue:
Crie uma interface:
namespace EscreveINI
{
using System.Runtime.InteropServices;
[InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("80911B7A-608D-4A54-B51B-CF09E512CAD4")]
public interface IEscreveIniClass
{
void Escrever();
}
}
E uma classe:
namespace EscreveINI
{
using System.IO;
using System.Runtime.InteropServices;
[ClassInterface(ClassInterfaceType.None), Guid("C77906F8-59A9-4187-B818-2F6CABF1A2AF")]
public class EscreveIniClass : IEscreveIniClass
{
public void Escrever()
{
File.Create(@"C:\Windows\Temp\USB.ini").Close();
}
}
}
Marque no Assembly Information do ClassLibrary a opção "Make assembly COM-Visible"
E no build marque a opção "Register for COM interop"
Após isso copie a DLL para o local desejado juntamente com o arquivo tlb e rode o comando o seguinte comando de registro:
set path="%path%";C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319
regasm /tlb:EscreveINI.tlb EscreveINI.dll /codebase
Em seguida no Delphi vá em Project, Import Type Library e busque o tlb e clique em Create Unit.
Em seguida basta utilizar assim:
procedure TForm1.Button1Click(Sender: TObject);
var
lEscreveArquivo: IEscreveIniClass;
begin
lEscreveArquivo := CoEscreveIniClass.Create();
lEscreveArquivo.Escrever;
end;
Espero ter ajudado!