Q&A
- 어느 경로에서든 실행파일이 있는 곳의 파일을 읽어오도록..하는 방법좀..부탁드립니다.
프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도
실행파일이 있는 폴더로 경로를 잡아주고 그 경로안에 있는 파일명을 읽어들이려고
하는데..제가 알기론 ExtractFilesName(파일명)하면 될 것 같은데...그게 않되서요..
인스톨쉴드를 사용해서..인스톨시킬. 때..아래와 같이 하면..그 경로를 바꿔서 인스톨하면 당연히 파일을 읽어오지 못하겠죠???
그래서...그 부분을 알고 싶습니다.
with TIniFile.Create('C:monitormoni_ini.ini') do
begin
try
hColNum := ReadInteger('Count','hardware_Info_NO',0);
hRowNum := ReadInteger('Count','demon_hostnameNO',0)+1;
hFtpNum := ReadInteger('Count','FTP_Info_NO',0);
StringGrid1.ColCount := hColNum;
StringGrid1.RowCount := hRowNum;
SetLength(hFtpStr,hFtpNum);
for j := 0 to hRowNum do
begin
StringGrid1.Cells[0,j+1]:= ReadString('demon_hostname',IntToStr(j),'');
for i := 0 to hColNum-1 do
StringGrid1.Cells[i,0]:= ReadString('hardware_Info',IntToStr(i),'');
..........
..........
실행파일이 있는 폴더로 경로를 잡아주고 그 경로안에 있는 파일명을 읽어들이려고
하는데..제가 알기론 ExtractFilesName(파일명)하면 될 것 같은데...그게 않되서요..
인스톨쉴드를 사용해서..인스톨시킬. 때..아래와 같이 하면..그 경로를 바꿔서 인스톨하면 당연히 파일을 읽어오지 못하겠죠???
그래서...그 부분을 알고 싶습니다.
with TIniFile.Create('C:monitormoni_ini.ini') do
begin
try
hColNum := ReadInteger('Count','hardware_Info_NO',0);
hRowNum := ReadInteger('Count','demon_hostnameNO',0)+1;
hFtpNum := ReadInteger('Count','FTP_Info_NO',0);
StringGrid1.ColCount := hColNum;
StringGrid1.RowCount := hRowNum;
SetLength(hFtpStr,hFtpNum);
for j := 0 to hRowNum do
begin
StringGrid1.Cells[0,j+1]:= ReadString('demon_hostname',IntToStr(j),'');
for i := 0 to hColNum-1 do
StringGrid1.Cells[i,0]:= ReadString('hardware_Info',IntToStr(i),'');
..........
..........
2
COMMENTS
-
-
이상학 wrote:
> 프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도
> 실행파일이 있는 폴더로 경로를 잡아주고 그 경로안에 있는 파일명을 읽어들이려고
> 하는데..제가 알기론 ExtractFilesName(파일명)하면 될 것 같은데...그게 않되서요..
> 인스톨쉴드를 사용해서..인스톨시킬. 때..아래와 같이 하면..그 경로를 바꿔서 인스톨하면 당연히 파일을 읽어오지 못하겠죠???
> 그래서...그 부분을 알고 싶습니다.
>
> with TIniFile.Create('C:monitormoni_ini.ini') do
> begin
> try
> hColNum := ReadInteger('Count','hardware_Info_NO',0);
> hRowNum := ReadInteger('Count','demon_hostnameNO',0)+1;
> hFtpNum := ReadInteger('Count','FTP_Info_NO',0);
>
> StringGrid1.ColCount := hColNum;
> StringGrid1.RowCount := hRowNum;
>
> SetLength(hFtpStr,hFtpNum);
>
> for j := 0 to hRowNum do
> begin
> StringGrid1.Cells[0,j+1]:= ReadString('demon_hostname',IntToStr(j),'');
> for i := 0 to hColNum-1 do
> StringGrid1.Cells[i,0]:= ReadString('hardware_Info',IntToStr(i),'');
> ..........
> ..........
>
>
안녕하세요~ 구창민입니다.
저녁을 먹고 났더니 졸립군요. ^^;
실행된 파일의 경로는 Application.ExeName 이 가지고 있습니다.
예를 들면 이런 형태로 들어 있습니다 --> 'C:TestTest.exe'
참고로, 실행파일만 뽑아쓰려면
ExtractFileName(Applicatio.ExeName). 결과 -->'Test.exe'
실행파일 경로만을 뽑으려면
ExtractFilePath(Application.ExeName). 결과 -->'C:Test'
P.S: 이건 사적인 질문입니다만, 혹시 Auction에서 경매에 참여하시고 계시나요?
제가 Auction에 파견나와서 일하고 있는데 이상학님의 이름을 송금할때
본거 같군요(반가워서리..) ^^
저는 Firm Banking프로그램을 개발중이거든요.
경매에 참여안하신다면 죄송하구요~ ^^;
그럼~ 즐거운 프로그래밍 하시길~
(NOTICE) You must be logged in to comment on this post.
-
- 장지용
- •
- 2000.04.26 07:58
- 2 COMMENTS
- /
- 0 LIKES
-
nemesis•2001.11.08 07:461년이 넘은 글인데 답변을 하면.... setForegroundWindow( Application.handle)을 PopupMenu.Popup(Cur...
-
톰과 제리•2000.04.26 08:29Rx라이브러리에 있는 RxTray를 사용하면 간단하게 할수 있는것 같던데요. 힘들게 코딩할 필요가 있겠습니...
-
- 김고진
- •
- 2000.04.26 05:52
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.04.26 09:03쩝.. 잘못 알고 계십니다. 저희역시 엄청난 프로젝트(?)를 몇백번 컴파일을 해도 죽는일은 우리 프로젝트...
-
- 차니
- 2000.04.26 05:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상학
- •
- 2000.04.26 04:16
- 2 COMMENTS
- /
- 0 LIKES
프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도 실행파일이 있는 폴더로 경로를 잡아주고 그 경로안에 있는 파일명을 읽어들이려고 하는데..제가 알기론 ExtractFilesName(파일명)하면 될 것 같은데....-
박권섭•2000.05.17 04:48이상학 wrote: > 프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도 >...
-
구창민•2000.04.26 04:31이상학 wrote: > 프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도 >...
-
- 이태호
- •
- 2000.04.26 03:58
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.04.26 18:35caleulated 필드 형태로 만들어서 표시 하면 간단합니다.. 그럼 caleulated 필드 만들는 방법은 TDate...
-
- 채경식
- 2000.04.26 03:32
- 0 COMMENTS
- /
- 0 LIKES
-
-
강인규•2000.04.26 05:19단순히 체크하는 것이라면 이렇게 하심 됩니다. try strtofloat(edit1.Text); except Sho...
-
nambada•2000.04.26 06:37답변 감사합니다. 근데 '+' 나 '-' 도 에러로 봐버리네요. 스트링내에서 '+' 나 '-' 는 에러가 아니게 ...
-
강인규•2000.04.26 11:51일단 고백합니다. 저는 스트링그리드는 한번도 써본적이 없어 뭐라 말씀드릴 수가 없지만 스트링그리드의 ...
-
-
- 델초보
- 2000.04.26 02:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 강현덕
- •
- 2000.04.26 01:52
- 3 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.26 03:09[InterBase Server Manager] 안되면 전화하세요. 0351-866-8473
-
이기현•2000.04.26 02:54Table or Column 의 권한이 읽기 전용으로 되어 있읍니다. DB Edit 에 Table or Column 포미션을 읽기와 ...
-
강현덕•2000.04.26 02:27이기현 wrote: > Table or Column 의 권한이 읽기 전용으로 되어 있읍니다. > DB Edit 에 Table or Colum...
-
- 김상국
- •
- 2000.04.26 01:42
- 2 COMMENTS
- /
- 0 LIKES
-
seagod•2000.04.26 01:56요렇게 하면 어떨까요? var nIndex:Integer begin for nIndex := 0 To frmMain.ComponentCount -1 ...
-
최용일•2000.04.26 01:55안녕하세요. 최용일입니다. 판넬안에 있는 컨트롤들은 모두 TPanel.Controls배열에 들어 있습니다. v...
-
- seagod
- •
- 2000.04.26 01:16
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.26 02:01안녕하세요. 최용일입니다. 아마도 다른 프로세스에서 fmShareDenyWrite를 사용하여 파일을 연것 같은데...
-
- 까마귀
- •
- 2000.04.26 01:02
- 2 COMMENTS
- /
- 0 LIKES
-
한창희•2000.04.26 10:09까마귀 wrote: > 안녕하세요. 까마귀입니다. > 일주일중 죽을 확률이 가장 낮다는 화요일입니다. 아무렇...
-
HART•2000.04.26 01:13아래 소스 스트링 그리드에 해당하는 소스데 디비 그리디에서 같은 효과을 낼 수 있습니다. 단 먼저 숫자...
-
- 조유정
- •
- 2000.04.26 01:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.26 09:49안녕하세요. 최용일입니다. IndexOf를 이용해보세요. var SearchStr: string; begin // 전체를 ...
-
-
- Macgyver
- •
- 2000.04.26 00:37
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.04.26 01:09Macgyver wrote: > CommitUpdates & ApplyUpdates의 정확한 차이와 Table/Query컴포넌트에 적용할경우 ...
-
- 박설화
- •
- 2000.04.26 00:29
- 1 COMMENTS
- /
- 0 LIKES
-
seagod•2000.04.26 02:02델파이 수퍼페이지에서 한번찾아 보심이 어떠신지요 제가 한번 본것 같거든요. 박설화 wrote: > 게...
-
- 최영만
- •
- 2000.04.26 00:25
- 2 COMMENTS
- /
- 0 LIKES
-
HART•2000.04.26 01:19디비에 필드 사이즈을 변경하여 아래 같은 에러가 발생하는 경우는 아만 TTable이나 TQuery의에서 더블 ...
-
까마귀•2000.04.26 01:16최영만 wrote: > 필드 사이즈를 변경하게 되었습니다. > > Database Desktop을 이용해서 변경 했는데 ...
-
- delphi boy
- 2000.04.26 00:17
- 0 COMMENTS
- /
- 0 LIKES
-
- SerVing
- •
- 2000.04.26 00:04
- 2 COMMENTS
- /
- 0 LIKES
-
강민주•2000.04.26 01:28SerVing wrote: > 지금 하는 프로젝트는 (델파이4로 합니다.) > 반드시 컴포넌트를 추가시키지 않고 완성...
-
SerVing•2000.04.26 03:55우선 답변에 감사드립니다. 제가하는 프로젝트는 새로운 컴포넌트를 설치하지 않고 해야만합니다. 델...
-
- 김 동호
- 2000.04.26 00:01
- 0 COMMENTS
- /
- 0 LIKES
> 프로그램이 시작된 후..아래와 같이 파일의 경로를 써주지 않고 어느 경로에 있더라도
> 실행파일이 있는 폴더로 경로를 잡아주고 그 경로안에 있는 파일명을 읽어들이려고
> 하는데..제가 알기론 ExtractFilesName(파일명)하면 될 것 같은데...그게 않되서요..
> 인스톨쉴드를 사용해서..인스톨시킬. 때..아래와 같이 하면..그 경로를 바꿔서 인스톨하면 당연히 파일을 읽어오지 못하겠죠???
> 그래서...그 부분을 알고 싶습니다.
>
> with TIniFile.Create('C:monitormoni_ini.ini') do
> begin
> try
> hColNum := ReadInteger('Count','hardware_Info_NO',0);
> hRowNum := ReadInteger('Count','demon_hostnameNO',0)+1;
> hFtpNum := ReadInteger('Count','FTP_Info_NO',0);
>
> StringGrid1.ColCount := hColNum;
> StringGrid1.RowCount := hRowNum;
>
> SetLength(hFtpStr,hFtpNum);
>
> for j := 0 to hRowNum do
> begin
> StringGrid1.Cells[0,j+1]:= ReadString('demon_hostname',IntToStr(j),'');
> for i := 0 to hColNum-1 do
> StringGrid1.Cells[i,0]:= ReadString('hardware_Info',IntToStr(i),'');
> ..........
> ..........
>
사용하시는 OS 가 MS-Windows 95 호환이면 Registry 의 사용을 권해 드립니다.
현재의 방법을 사용하시려면
TIniFile.Create( ExtractFilePath( ParamStr( 0 ) ) + 'moni_ini.ini' )
와 같이 하시면 될듯 싶습니다.
이때 ParamStr 은 시스템 명령행을 의미합니다.