Utilizar regsvr32 via Delphi

Delphi

15/01/2007

Bom dia.

Tem como utilizar este comando ´regsvr32´ com o delphi?

Grato pela atenção.


Turbo Drive

Turbo Drive

Curtidas 0

Respostas

Truck1n

Truck1n

15/01/2007

Bom dia,

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
Aroldo Zanela

Aroldo Zanela

15/01/2007

Colega,

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
Titanius

Titanius

15/01/2007

[quote:0796d1e938=´Aroldo Zanela´]Colega,

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;
[/quote:0796d1e938]

Esta eu não sabia!! Muito melhor assim!

[]s


GOSTEI 0
Truck1n

Truck1n

15/01/2007

[quote:2e74b99eb9=´Aroldo Zanela´]Colega, 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[/quote:2e74b99eb9]

boa mesmo acabei de testar!, mas não esquece de usara UNIT:

Unit

ExtActns


vlww


GOSTEI 0
POSTAR