線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:3593
推到 Plurk!
推到 Facebook!

HOSTS

 
leo
一般會員


發表:6
回覆:6
積分:2
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-03-14 14:35:38 IP:210.61.xxx.xxx 未訂閱
站長大人,新站成立....我想你應該會比較忙吧,忙著看看我們這一些網友所丟出來的怪問題...呵呵 言歸正傳 今天有 OS 為Windows 95..Windows 98..Winodws ME..Windows 2000 Professional..Windows NT4........ 我要如何去變更所有電腦裡頭的 HOSTS 檔?(每個 OS 所放的檔案位置都不一樣,且還不確定有這一個檔案的存在) 最好是用 Appand 的方式加入一行 例如: 192.168.1.200 Intranet 嗯.....這個問題應該是要丟到這一個Forum吧? 謝謝 Sincerely Leo 承佑
------
SincerelyLeo 承佑
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-03-14 17:49:43 IP:192.168.xxx.xxx 未訂閱
引言: 站長大人,新站成立....我想你應該會比較忙吧,忙著看看我們這一些網友所丟出來的怪問題...呵呵 言歸正傳 今天有 OS 為Windows 95..Windows 98..Winodws ME..Windows 2000 Professional..Windows NT4........ 我要如何去變更所有電腦裡頭的 HOSTS 檔?(每個 OS 所放的檔案位置都不一樣,且還不確定有這一個檔案的存在) 最好是用 Appand 的方式加入一行 例如: 192.168.1.200 Intranet 嗯.....這個問題應該是要丟到這一個Forum吧? 謝謝 Sincerely Leo 承佑
謝謝您的關心,有空多上上本站多捧場,謝謝您的支持! 您所提的問題應不難處理: 1.可先考慮NT系列的 \winnt\system32\drivers\etc\HOSTS.檔 是否存在,不存在先建檔,存在則Append一行 2.在判斷Windows9X系列\windows\HOSTS.檔 是否存在,不存在先建檔,存在則Append一行 3.再則不行的話,可用FindFirst配合遞回找出所有目錄內有HOSTS.SAM檔的 就是HOSTS.應所在的目錄 這樣試試吧! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
leo
一般會員


發表:6
回覆:6
積分:2
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-03-14 19:40:29 IP:210.61.xxx.xxx 未訂閱
站長大人.... 很抱歉FindFirst....我不會用 function FindFirst(const Path: String;Attr: Integer;var F: TSearchRec):Integer; 其中,var F: TSearchRec 這一個東西要怎麼用 Help裡頭是說的我不太懂....謝謝 Sincerely Leo 承佑
------
SincerelyLeo 承佑
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-03-14 20:15:46 IP:61.219.xxx.xxx 未訂閱
好吧!我就送佛送上天!為您寫了一段! 這個程式會從目錄開始位置往下尋找所有子目錄下的檔案,類似DOS的DIR /S
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function DIRS(path1:string):boolean;
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    function TForm1.DIRS(path1:string):boolean;
var SearchRec,SearchRec2: TSearchRec;
    s1,s2,fn,fn1:string;
    c:boolean;
    x,y:word;
begin
   c:=false;
   s1:=path1;
   memo1.lines.clear;
   if FindFirst(s1 '\*.*', faAnyFile, SearchRec)=0 then
   begin
       repeat
          fn:=SearchRec.Name;
          x:=SearchRec.Attr;
          y:=faDirectory;
          if (x and y)<>0 then
          begin
             if (fn<>'.') and (fn<>'..') then
             begin
                DIRS(s1 '\' fn);
             end;
          end
          else
          begin
             c:=false;
             fn1:=s1 '\' fn;
             caption:=fn1;
             memo1.lines.add(fn1);
          end;
       until FindNext(SearchRec)<>0;
   end;
   FindClose(SearchRec);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
   dirs(edit1.text);
end;    end.
~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
leo
一般會員


發表:6
回覆:6
積分:2
註冊:2002-03-13

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-03-15 16:35:57 IP:210.61.xxx.xxx 未訂閱
站長大人.... 謝謝你的來信...好感動... 也謝謝你的程式....這讓我又回憶了一些Pascal的程式寫法..... 說真的我還真的生疏基本的東西..... 唉...都是死微軟....太User Friendly的東西都會讓人墮落..... 總之感謝你..... Sincerely Leo 承佑
------
SincerelyLeo 承佑
系統時間:2017-10-22 3:26:04
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!