1. Ini 파일을 열면서 파일의 Path를 지정하지 않았군요.
   Ini 파일이 원하는 곳에 정확하게 생성되어 있는지 확인해봐야 할 것 같습니다.
   TIniFile로 접근할 때 Read만 해서는 실제 파일이 생성되지 않고, Win2000의
   경우라면 에러를 발생시키지 않습니다 만, 98/95에서는 존재하지 않는 파일에
   대해 어떻게 동작할지 장담을 못하겠습니다. 제 기억으로는 문제 없던것 같습
   니다. 그래도 혹시 모르니 확인해 보십시요.

   그리고 Ini 파일을 열때 될 수 있으면 Path를 기술해 주도록 하십시요.

2. 컴포넌트 팔레트의 Win 3.1 페이지에 있는 컴포넌트를 사용하셨는데요. 그 컴
   포넌트들은 Win 3.1 시절에 개발된것들 이라서 XP에서 잘 돌아갈지 장담을 못
   하겠습니다. Win 2000이야 워낙 안정적이니까 문제 없다고 하더라도 98 역시
   그런 컴포넌트들을 잘 동작시킬지 의심이 가는군요.

   Win 3.1 페이지에 있는 것들을 사용하지 않고 프로그램을 만들어서 테스트 해
   보심이...

음... 대답에 확신이 안섭니다. 주위에 98이 있다면 거기서 돌려보면서 이것 저것
테스트 해보겠지만 그럴만한 사정도 아니고... 성의 없는 답이 되어버린것 같아
죄송합니다.

Win 3.1 페이지에 있는 컴포넌트를 사용하는 경우 98에서 에러가 나는 경험은 있
었던걸로 기억하고 있습니다.

그럼. 수고 하십시요.




왕초보 님이 쓰신 글 :
: 폼show 부분을 주석처리하니까 실행되는 걸로봐서
: 코딩이 잘못되었는지 의심이 가는데요
: 잘모르겠습니다!
: 위도우2000에서는 잘돌아가는데 왜 윈도98 , 윈도me에서는 에러가 날까요?
:
: unit UPath;
:
: interface
:
: uses
:   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
:   Dialogs, FileCtrl, StdCtrls, ExtCtrls, Buttons;
:
: type
:   Tfrmpath = class(TForm)
:     btnSave: TBitBtn;
:     btnClose: TBitBtn;
:     pnlpath: TPanel;
:     drvcbo: TDriveComboBox;
:     dirlst: TDirectoryListBox;
:     filelst: TFileListBox;
:     procedure btnCloseClick(Sender: TObject);
:     procedure FormClose(Sender: TObject; var Action: TCloseAction);
:     procedure filelstChange(Sender: TObject);
:     procedure FormShow(Sender: TObject);
:     procedure btnSaveClick(Sender: TObject);
:     procedure drvcboChange(Sender: TObject);
:
:
:   private
:     { Private declarations }
:   public
:     { Public declarations }
:   end;
:
: var
:   frmpath: Tfrmpath;
:
: implementation
:
: uses IniFiles;
:
: {$R *.dfm}  
:
: procedure Tfrmpath.btnCloseClick(Sender: TObject);
: begin
:   close;
: end;
:
: procedure Tfrmpath.FormClose(Sender: TObject; var Action: TCloseAction);
: begin
:   action := cafree;
: end;
:
: procedure Tfrmpath.filelstChange(Sender: TObject);
: begin
:   pnlpath.Caption := ' 경로 : ' + filelst.FileName;
: end;
:
: procedure Tfrmpath.FormShow(Sender: TObject);
: var
:   p_ini : TiniFile;
:   ls_filename, ls_path : String;
: begin
:   p_ini := TiniFile.Create('ITACADEMY.ini');
:   ls_filename := p_ini.ReadString('System','Dbname',' 경로 : ');
:   pnlpath.Caption := ls_filename;
:   ls_path := p_ini.ReadString('System','Path',' 경로 : ');
:   p_ini.Free;
:   if trim(pnlpath.Caption) <> '경로 :' then
:     begin
:       drvcbo.Drive := ls_path[1];
:       dirlst.Directory := ls_path;
:       filelst.FileName := ls_filename;
:     end;
: end;
:
: procedure Tfrmpath.btnSaveClick(Sender: TObject);
: var
:   p_ini : TiniFile;
:   ls_path : String;
: begin
:   p_ini := TiniFile.Create('ITACADEMY.ini');
:   ls_path := dirlst.Directory;
:   p_ini.WriteString('System','Path',ls_path);
:   p_ini.WriteString('System','Dbname',filelst.FileName);
:   p_ini.Free;
: end;
:
: procedure Tfrmpath.drvcboChange(Sender: TObject);
: begin
:   dirlst.SetFocus;
: end;
:
: end.
:
: 답변부탁드리겠습니다.
:
: