Q&A
- 분류먼저 해주시길 부탁드립니다.
지금 파일이 있는 디렉토리를 자동으로 인식해서 원하는 파일을 자동으로 복사해주려고 합니다.
예를 들면
지금 A 라는 파일이 어느 디렉토리에 있는지 알지못하지만 c:windows 디렉토리에 복사
하려고 합니다.
procedure TForm1.FormCreate(Sender: TObject);
var
F : TShFileOpStruct;
begin
F.Wnd := Handle; // if 0, then no parent and can task switch away
F.wFunc := FO_COPY;
F.pFrom := '???';
F.pTo := 'c:windows';
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
위와 같은 예제가 있어서 사용해 보았는데 F.pFrom 부분에 디렉토리를 직접쓰지 않고
자동으로 현 실행하고 있는 파일(A)의 디렉토리를 입력하려면 어떻게 해야할지....
부탁드립니다.
extractfilepath(ParamStr(0)) 를 이용해 보았는데
'incompatible types : string and pchar' 라는 에러 메세지만 뜨는데 방법을 모르겠어요. 꼭좀 부탁드립니다
예를 들면
지금 A 라는 파일이 어느 디렉토리에 있는지 알지못하지만 c:windows 디렉토리에 복사
하려고 합니다.
procedure TForm1.FormCreate(Sender: TObject);
var
F : TShFileOpStruct;
begin
F.Wnd := Handle; // if 0, then no parent and can task switch away
F.wFunc := FO_COPY;
F.pFrom := '???';
F.pTo := 'c:windows';
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
위와 같은 예제가 있어서 사용해 보았는데 F.pFrom 부분에 디렉토리를 직접쓰지 않고
자동으로 현 실행하고 있는 파일(A)의 디렉토리를 입력하려면 어떻게 해야할지....
부탁드립니다.
extractfilepath(ParamStr(0)) 를 이용해 보았는데
'incompatible types : string and pchar' 라는 에러 메세지만 뜨는데 방법을 모르겠어요. 꼭좀 부탁드립니다
3
COMMENTS
-
-
안녕하세여.. 타락임다...^^
히잉~ 저두 바쁜데..^^;;;
인자가 c:delphi5binproject1.exe 일때 리턴값
ExtractFilePath() : c:delphi5bin
ExtractFileDir() : c:delphi5bin
원하는 함수가 ExtractFileDir() 인거 같은데여..ㅠㅠ
왕초보 타락천사..^_____^
돌머리 wrote:
> 지금 파일이 있는 디렉토리를 자동으로 인식해서 원하는 파일을 자동으로 복사해주려고 합니다.
> 예를 들면
> 지금 A 라는 파일이 어느 디렉토리에 있는지 알지못하지만 c:windows 디렉토리에 복사
> 하려고 합니다.
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> F : TShFileOpStruct;
> begin
> F.Wnd := Handle; // if 0, then no parent and can task switch away
> F.wFunc := FO_COPY;
> F.pFrom := '???';
> F.pTo := 'c:windows';
> F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
> if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
>
> 위와 같은 예제가 있어서 사용해 보았는데 F.pFrom 부분에 디렉토리를 직접쓰지 않고
> 자동으로 현 실행하고 있는 파일(A)의 디렉토리를 입력하려면 어떻게 해야할지....
> 부탁드립니다.
> extractfilepath(ParamStr(0)) 를 이용해 보았는데
> 'incompatible types : string and pchar' 라는 에러 메세지만 뜨는데 방법을 모르겠어요. 꼭좀 부탁드립니다
-
안녕하세요 하얀까마귀 입니다.
자기자신의 경로를 아실려면..
GetDir(0, cCurrDir);
이라고 하시면 됩니다..
cCurrDir은 그냥 스트링 입니다.
그럼 즐거운시간 되세요..
- 하얀까마귀 -
돌머리 wrote:
> 지금 파일이 있는 디렉토리를 자동으로 인식해서 원하는 파일을 자동으로 복사해주려고 합니다.
> 예를 들면
> 지금 A 라는 파일이 어느 디렉토리에 있는지 알지못하지만 c:windows 디렉토리에 복사
> 하려고 합니다.
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> F : TShFileOpStruct;
> begin
> F.Wnd := Handle; // if 0, then no parent and can task switch away
> F.wFunc := FO_COPY;
> F.pFrom := '???';
> F.pTo := 'c:windows';
> F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
> if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
>
> 위와 같은 예제가 있어서 사용해 보았는데 F.pFrom 부분에 디렉토리를 직접쓰지 않고
> 자동으로 현 실행하고 있는 파일(A)의 디렉토리를 입력하려면 어떻게 해야할지....
> 부탁드립니다.
> extractfilepath(ParamStr(0)) 를 이용해 보았는데
> 'incompatible types : string and pchar' 라는 에러 메세지만 뜨는데 방법을 모르겠어요. 꼭좀 부탁드립니다
(NOTICE) You must be logged in to comment on this post.
-
- 하얀까마귀
- 2000.06.08 00:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 이희재
- •
- 2000.06.08 00:11
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.08 00:54안녕하세요 하얀까마귀 입니다.. 음.. 문제가 무엇인지 잘 모르겠네요... 지금 코딩처럼 하시면.. 캔...
-
- 돌머리
- •
- 2000.06.08 00:03
- 3 COMMENTS
- /
- 0 LIKES
지금 파일이 있는 디렉토리를 자동으로 인식해서 원하는 파일을 자동으로 복사해주려고 합니다. 예를 들면 지금 A 라는 파일이 어느 디렉토리에 있는지 알지못하지만 c:windows 디렉토리에 복사 하려고 합니다. procedure TForm1.FormCrea...-
최용일•2000.06.08 01:26안녕하세요. 최용일입니다. 형변환을 해주세요. PChar로... F.pFrom := PChar(ExtractFilePath(Param...
-
타락천사•2000.06.08 01:01안녕하세여.. 타락임다...^^ 히잉~ 저두 바쁜데..^^;;; 인자가 c:delphi5binproject1.exe 일때 리턴...
-
하얀까마귀•2000.06.08 00:40안녕하세요 하얀까마귀 입니다. 자기자신의 경로를 아실려면.. GetDir(0, cCurrDir); 이라고 하...
-
- 심해영
- •
- 2000.06.07 23:46
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.08 00:33안녕하세요 하얀까마귀 입니다.. 실시간이라는게 프린트는 계속 켜져 있고 프로그램에서는 사용자가 원...
-
HART•2000.06.08 00:23여기에 Q&A에 있는 내용 복사했습니다.. Procedure DirectPrint(s : String); var PTBlock : TPassT...
-
- 조유정
- •
- 2000.06.07 23:20
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.06.08 00:15여기에 Q&A에서 Need라고 검색하면 퀴리포트에서 db와 연결없이 출력하는 방법이 나옵니다.. 그 방법으로 ...
-
- 이곤섭
- •
- 2000.06.07 23:20
- 4 COMMENTS
- /
- 0 LIKES
-
화랑•2000.06.08 00:42이곤섭 wrote: > 게시물 올린걸 보니까 > 저도 화랑님과 같은 고민을 하고 있습니다. > binary로 받은 ...
-
이곤섭•2000.06.08 01:44화랑 wrote: > 이곤섭 wrote: > > 게시물 올린걸 보니까 > > 저도 화랑님과 같은 고민을 하고 있습니다...
-
화랑•2000.06.08 02:22음.. 어떻게 설명을 하는것이 좋을까요.. 일단은 readbinary하셨을 겁니다.. 먼저 이렇게 넘겨 받은 ...
-
이곤섭•2000.06.08 02:30지금 상태는 bData:=Request.Binaryread()로 바이너리형을로 가저 왔습니다. 그래서 그걸 바로 respons...
-
- heimdal
- •
- 2000.06.07 23:18
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.08 01:35안녕하세요. 최용일입니다. 타이머를 사용하여 일정시간마다 프로그래스바를 갱신해주거나 쓰레드를 사...
-
- parkisu
- •
- 2000.06.07 22:44
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.08 02:25안녕하세요. 최용일입니다. 델파이 슈퍼페이지 주소입니다. http://delphi.icm.edu.pl/ ^^ 항상 즐...
-
- 박상훈
- •
- 2000.06.07 22:37
- 2 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.06.07 23:05박상훈 wrote: > 델파이배우는 왕초보입니다... > 도움을 주세요.... > 다름이 아니오라 > 제가 edit,...
-
사발우성•2000.06.07 22:50흠...초보사발임당.. 요런것은 어떤지엽.. edit1.text:=listbox1.items[listbobox1.itemindex]; 음 ...
-
- ladymoon
- •
- 2000.06.07 22:32
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.08 01:21안녕하세요. 최용일입니다. 델파이 바로가기 등록정보를 보시면 '대상' 이라고 적어진 부분에 델파이 실...
-
- 미친척
- •
- 2000.06.07 22:42
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.08 00:51안녕하세여.. 타락임다..^^ 흐미.. 제가 바뻐서 답변 못드려 미안함다..ㅠㅠ 제가 왕초보라 도움이 ...
-
- nilriri
- 2000.06.07 22:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초
- 2000.06.07 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 심인식
- •
- 2000.06.07 20:53
- 1 COMMENTS
- /
- 0 LIKES
-
윤광희•2000.06.09 03:56저도 현재 비슷한 프로그램을 작성하고 있습니다. 조금이나마 참고되시길 바랍니다. 저의 경우에는 ...
-
- 이경문
- •
- 2000.06.07 22:28
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.06.08 03:10알아 냈습니다. ocx하나가지고만 관리해서는 안되더군요. Web Deploy Options에서 Delploy additional f...
-
- 서영진
- •
- 2000.06.07 20:47
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.07 21:18안녕하세요. 최용일입니다. RenameFile('c:textttta.txt', 'c:texttttttta.txt'); ^^ 항상 즐코하세...
-
- 선희
- •
- 2000.06.07 20:38
- 7 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.07 21:20
-
선희•2000.06.08 01:00
-
최용일•2000.06.08 01:11
-
선희•2000.06.08 01:47
-
최용일•2000.06.08 01:56
-
선희•2000.06.08 02:44
-
최용일•2000.06.08 03:02
-
- 초보
- •
- 2000.06.07 20:36
- 1 COMMENTS
- /
- 0 LIKES
-
홍세비•2000.06.07 21:49초보 wrote: > 비트맵 그림화일로 메뉴를 만들려고 그러는데요. > 그러니까 마우스를 갖다대면 그림이 변...
-
-
타락천사•2000.06.07 20:43안녕하세여.. 타락임다..^^ 익스플로어의 주소 콤보박스 기능을 구현하면 돼겠져... 아마 팁모아에 ...
-
미친척•2000.06.07 21:09타락천사 wrote: > 안녕하세여.. 타락임다..^^ > > 익스플로어의 주소 콤보박스 기능을 구현하면 돼겠...
-
-
- 잉잉...
- •
- 2000.06.07 20:33
- 1 COMMENTS
- /
- 0 LIKES
-
손경덕•2000.06.29 22:31> the interbase server failed to startup > because another instance of the server > is already run...
형변환을 해주세요. PChar로...
F.pFrom := PChar(ExtractFilePath(ParamStr(0)));
^^ 항상 즐코하세요.
돌머리 wrote:
> 지금 파일이 있는 디렉토리를 자동으로 인식해서 원하는 파일을 자동으로 복사해주려고 합니다.
> 예를 들면
> 지금 A 라는 파일이 어느 디렉토리에 있는지 알지못하지만 c:windows 디렉토리에 복사
> 하려고 합니다.
>
> procedure TForm1.FormCreate(Sender: TObject);
> var
> F : TShFileOpStruct;
> begin
> F.Wnd := Handle; // if 0, then no parent and can task switch away
> F.wFunc := FO_COPY;
> F.pFrom := '???';
> F.pTo := 'c:windows';
> F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
> if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
>
> 위와 같은 예제가 있어서 사용해 보았는데 F.pFrom 부분에 디렉토리를 직접쓰지 않고
> 자동으로 현 실행하고 있는 파일(A)의 디렉토리를 입력하려면 어떻게 해야할지....
> 부탁드립니다.
> extractfilepath(ParamStr(0)) 를 이용해 보았는데
> 'incompatible types : string and pchar' 라는 에러 메세지만 뜨는데 방법을 모르겠어요. 꼭좀 부탁드립니다