Colocar a linha quot;gds_db 3050/tcpquot;

Delphi

15/05/2003

Pessoal como eu faço para colocar a linha
´gds_db 3050/tcp´

no arquivo ´services´ do Windows e a linha naum existir,,,, sem usar a instalação do FIREBIRD,

Grato,


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Rosivaldo

Rosivaldo

15/05/2003

procedure TForm1.Button1Click(Sender: TObject);
var F: TFile;
begin
  AssignFile(F, ´C:\Windows\services´);
  Reset(F);
  Writeln(F, ´gds_db 3050/tcp´);
  CloseFile(F);
end;


Espero que ajude!


GOSTEI 0
POSTAR