Tenho o seguinte código:
CoInitialize(nil);
try
DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
except
WinExec( 'regasm LarWS.dll /tlb:LarWS.tlb',SW_HIDE);
Screen.Cursor := crHourGlass;
Sleep(3000);
Screen.Cursor := crDefault;
DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
end;
DM_Principal:
private
larWS: IWS;
public
property pLarWS: IWS read larWS write larWS;
Ao executar sem internet o sistema entra em loop na rotina:
DM_Principal.pLarWS := CreateComObject(LarWS_TLB.CLASS_WS) as IWS;
Não conseguindo registrar, se eu tentar mudar o código para registrar no REGASM também entrar em loop infinito.
Segue o link do arquivo LARWS_TLB.pas Arquivo.
LarWS.dll
onde podemos encontrar isto para simular o problema?