站長大人，新站成立....我想你應該會比較忙吧，忙著看看我們這一些網友所丟出來的怪問題...呵呵 言歸正傳 今天有 OS 為Windows 95..Windows 98..Winodws ME..Windows 2000 Professional..Windows NT4........ 我要如何去變更所有電腦裡頭的 HOSTS 檔？(每個 OS 所放的檔案位置都不一樣，且還不確定有這一個檔案的存在) 最好是用 Appand 的方式加入一行 例如: 192.168.1.200 Intranet 嗯.....這個問題應該是要丟到這一個Forum吧？ 謝謝 Sincerely Leo 承佑

------
SincerelyLeo 承佑

引言: 站長大人，新站成立....我想你應該會比較忙吧，忙著看看我們這一些網友所丟出來的怪問題...呵呵 言歸正傳 今天有 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討論區站長～～～

站長大人.... 很抱歉FindFirst....我不會用 function FindFirst(const Path: String;Attr: Integer;var F: TSearchRec):Integer; 其中，var F: TSearchRec 這一個東西要怎麼用 Help裡頭是說的我不太懂....謝謝 Sincerely Leo 承佑

------
SincerelyLeo 承佑

好吧!我就送佛送上天!為您寫了一段! 這個程式會從目錄開始位置往下尋找所有子目錄下的檔案,類似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討論區站長～～～

站長大人.... 謝謝你的來信...好感動... 也謝謝你的程式....這讓我又回憶了一些Pascal的程式寫法..... 說真的我還真的生疏基本的東西..... 唉...都是死微軟....太User Friendly的東西都會讓人墮落..... 總之感謝你..... Sincerely Leo 承佑

------
SincerelyLeo 承佑