Colocar a linha quot;gds_db 3050/tcpquot;

15/05/2003

1

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,


Responder

Posts

15/05/2003

Rosivaldo

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!


Responder