Fórum Utilizar regsvr32 via Delphi #336243
15/01/2007
0
Tem como utilizar este comando ´regsvr32´ com o delphi?
Grato pela atenção.
Turbo Drive
Curtir tópico
+ 0Posts
16/01/2007
Truck1n
Mas é claro que podemos fazer isso com o nosso querido Delphi, basta você usar a unit ´[color=red:28cfd1e68e]SHELLAPI[/color:28cfd1e68e]´ assim.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,SHELLAPI, StdCtrls;
e use essa função para fazer tal proeza!
ShellExecute(0,nil,Pchar(´c:\windows\system32\regsvr32 midas.dll´),nil, nil, SW_NORMAL);
mas lembre-se caso esteja no winnt a pasta padrão do windows é [b:28cfd1e68e]WINNT[/b:28cfd1e68e]
boa sorte, espero ter ajudado!
Gostei + 0
16/01/2007
Aroldo Zanela
A partir do Delphi 6 (salve engano), pode-se fazer isto com classe, veja:
var Executar: TFileRun; begin Executar := TFileRun.Create(Self); Executar.FileName := ´regsvr32´; Executar.Parameters := ´midas.dll´; Executar.Operation := ´open´; Executar.Execute; FreeAndNil(Executar); end;
Gostei + 0
16/01/2007
Titanius
A partir do Delphi 6 (salve engano), pode-se fazer isto com classe, veja:
var Executar: TFileRun; begin Executar := TFileRun.Create(Self); Executar.FileName := ´regsvr32´; Executar.Parameters := ´midas.dll´; Executar.Operation := ´open´; Executar.Execute; FreeAndNil(Executar); end;
Esta eu não sabia!! Muito melhor assim!
[]s
Gostei + 0
16/01/2007
Truck1n
var Executar: TFileRun; begin Executar := TFileRun.Create(Self); Executar.FileName := ´regsvr32´; Executar.Parameters := ´midas.dll´; Executar.Operation := ´open´; Executar.Execute; FreeAndNil(Executar); end;
Esta eu não sabia!! Muito melhor assim!
[]s[/quote:2e74b99eb9]
boa mesmo acabei de testar!, mas não esquece de usara UNIT:
Unit ExtActns
vlww
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)