Q&A
- 이게 무슨 내용인지 이해가 안가요....
unit Global;
interface
uses
SysUtils, Forms, IniFiles;
var
MExecPath : String; {프로그램이 실행된 경로}
MDataPath : String; {자료파일 경로}
MWavePath : String; {멀티미디어파일 경로}
MBackPath : String;
MIniFile : String; {INI 파일 이름}
Passval, Retval : integer;{함수이용시 전달값과 리턴값}
procedure GetPaths;
implementation
procedure GetPaths;
var
MExecName : String;
begin
MExecName := Application.ExeName;
MExecPath := ExtractFilePath(MExecName);
MDataPath := MExecPath+'DATA';
MBackPath := MExecPath+'BACK';
MWavePath := MExecPath+'WDATA';
MIniFile := MExecPath+'NARACHKk.CFG';
end;
end.
interface
uses
SysUtils, Forms, IniFiles;
var
MExecPath : String; {프로그램이 실행된 경로}
MDataPath : String; {자료파일 경로}
MWavePath : String; {멀티미디어파일 경로}
MBackPath : String;
MIniFile : String; {INI 파일 이름}
Passval, Retval : integer;{함수이용시 전달값과 리턴값}
procedure GetPaths;
implementation
procedure GetPaths;
var
MExecName : String;
begin
MExecName := Application.ExeName;
MExecPath := ExtractFilePath(MExecName);
MDataPath := MExecPath+'DATA';
MBackPath := MExecPath+'BACK';
MWavePath := MExecPath+'WDATA';
MIniFile := MExecPath+'NARACHKk.CFG';
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 모두 사랑
- •
- 2001.01.04 04:03
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.01.04 09:44모두 사랑 wrote: > 동적으로 불러들인 파라독스 db파일들의 목록을 > 메인메뉴에 만들 수 있는 방법을 ...
-
- 초보자
- 2001.01.04 04:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보자
- 2001.01.04 04:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 이원택
- •
- 2001.01.04 03:46
- 1 COMMENTS
- /
- 0 LIKES
-
권경미•2001.01.04 05:37움... 일자 - 일자를 하면 extended형의 Data를 얻을수 있어요... 그걸 (31,28,31,30,31,30,31,31,30...
-
- 바보사리
- 2001.01.04 03:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 물음표
- •
- 2001.01.04 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.01.04 06:13안녕하세요. 예전에 제가 처음으로 델파이 하면서 거래처 회사에서 이런 프로그램을 원했습니다. Master ...
-
-
정성훈•2001.01.04 06:18안녕하세요 참 이상하네요.. 저 오늘 해도 변환 잘 되던데...-,-;;; 안되시면 Ord나 Chr를 써서 한번 변...
-
-
- 우희정
- 2001.01.04 01:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 권영길
- 2001.01.04 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 오주원
- 2001.01.04 01:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 전호영
- •
- 2001.01.04 00:40
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2001.01.04 01:35close 문은 반드시 있어야 합니다. clear문은 단지 기 정의된 SQL만을 삭제하지요. 따라서 현재 open되어...
-
- 전호영
- 2001.01.04 00:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.01.04 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 깡초보
- 2001.01.04 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 버니
- •
- 2001.01.03 23:49
- 1 COMMENTS
- /
- 0 LIKES
unit Global; interface uses SysUtils, Forms, IniFiles; var MExecPath : String; {프로그램이 실행된 경로} MDataPath : String; {자료파일 경로} MWavePath : String; {멀티미디어파일 경로} MBackPath : String; MIniFile : String; ...-
Black}{ole•2001.01.04 00:47버니 wrote: > unit Global; > > interface > > uses > SysUtils, Forms, IniFiles; > > var ...
-
- 용산
- 2001.01.04 01:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱구
- 2001.01.03 23:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보..
- 2001.01.03 23:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.01.03 23:01
- 2 COMMENTS
- /
- 0 LIKES
-
액션가면•2001.01.04 01:24안녕하세염^^ 문제점이라고 밝힌부분만 말씀드릴께여.. 실행화일자체를 update하고자 하시면 update...
-
김영석•2001.01.04 01:18실행중인 실행화일을 지울수는 없겠죠. 그러면 그 실행중인 창의 핸들을 얻어서 그 창을 닫아준 다음에 ...
-
- 박일용
- 2001.01.03 22:50
- 0 COMMENTS
- /
- 0 LIKES
> unit Global;
>
> interface
>
> uses
> SysUtils, Forms, IniFiles;
>
> var
> MExecPath : String; {프로그램이 실행된 경로}
> MDataPath : String; {자료파일 경로}
> MWavePath : String; {멀티미디어파일 경로}
> MBackPath : String;
> MIniFile : String; {INI 파일 이름}
>
> Passval, Retval : integer;{함수이용시 전달값과 리턴값}
>
> procedure GetPaths;
>
> implementation
>
> procedure GetPaths;
> var
> MExecName : String;
> begin
> MExecName := Application.ExeName;
> MExecPath := ExtractFilePath(MExecName);
> MDataPath := MExecPath+'DATA';
> MBackPath := MExecPath+'BACK';
> MWavePath := MExecPath+'WDATA';
> MIniFile := MExecPath+'NARACHKk.CFG';
> end;
>
> end.
안녕하세요,^^
위에 소스에 주석처리가 잘되어져 설명이 필요없을것 같은뎅..??
Application.ExeName은 현재 프로그램에 실행경로와 파일명입니다.
ExtractFilePath()함수는 경로+파일명일경우.. 경로만 구해줍니다.
예로.. c:projecta.exe일때.. c:project만 구해줍니다.
그럼..20000.