Q&A
function GetDesktop: String;
var dir: PItemIDList;
desktop : array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(Application.handle, CSIDL_DESKTOP, dir);
SHGetPathFromIDList(dir, desktop);
Result:=StrPas(desktop);
end;
위 코드를 실행했는데..
첨부그림처럼 나와요...
Char 형을 Sting 형으로 바꾸는 곳에서 에러가 나오나봐요.
어떻게하죠?
- Char[] 형을 Sting 형으로 바꾸기?
function GetDesktop: String;
var dir: PItemIDList;
desktop : array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(Application.handle, CSIDL_DESKTOP, dir);
SHGetPathFromIDList(dir, desktop);
Result:=StrPas(desktop);
end;
위 코드를 실행했는데..
첨부그림처럼 나와요...
Char 형을 Sting 형으로 바꾸는 곳에서 에러가 나오나봐요.
어떻게하죠?
2
COMMENTS
-
-
답변 감사합니다. 제 컴퓨터에 문제가 있었나봅니다.
다른컴퓨터에서는 잘~ 작동합니다. ㅡ,.ㅡ; 미치겠습니다.
인스톨을 잘못했는지... 흐.. ㅠ.ㅠ
(NOTICE) You must be logged in to comment on this post.
-
- 아폴론
- •
- 2003.03.24 20:02
- 3 COMMENTS
- /
- 0 LIKES
-
아폴론•2003.03.25 01:44//====================일반폼 유닛=============== procedure TT105fm.FormCreate(Sender: TObject); be...
-
박수영•2003.03.24 20:38제 생각에는 TMainMenu.Create를 사용하면 될것 같은데요...
-
아폴론•2003.03.24 22:58Procedure Set_Power(TR_form : TForm); //권한설정프로시져 var i : integer; ...
-
- 박은숙
- 2003.03.24 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍진혁
- 2003.03.24 19:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상석
- •
- 2003.03.24 13:04
- •
- 2 COMMENTS
- /
- 0 LIKES
function GetDesktop: String; var dir: PItemIDList; desktop : array[0..MAX_PATH] of Char; begin SHGetSpecialFolderLocation(Application.handle, CSIDL_DESKTOP, dir); SHGetPathFromIDList(dir, desktop); Result:=StrPas(desktop)...
-
KDDG_ZZOM•2003.03.24 19:20정상적으로 작동 잘하는데요... 저는 델3에서 테스트 했어요... 오류없이 잘 처리되는데 다시한번 확인해...
-
이상석•2003.03.25 01:34답변 감사합니다. 제 컴퓨터에 문제가 있었나봅니다. 다른컴퓨터에서는 잘~ 작동합니다. ㅡ,.ㅡ; 미치겠...
-
- nilriri™
- 2003.03.24 11:37
- 0 COMMENTS
- /
- 0 LIKES
-
-
김영대•2003.03.25 11:44// 안녕하세요 김영대 (http://www.howto.pe.kr ) 입니다 정확한 답변은 아니고 제 경험을 ...
-
-
- ☆영민★
- 2003.03.23 13:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 박지원
- •
- 2003.03.23 10:42
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2003.03.24 01:30저두 가르쳐본 경험이 있어 몇자 적습니다. 먼저, 문법이 바탕이 되어야 되니깐, 스스로 문법을 터득할 ...
-
- 박영주
- •
- 2003.03.23 07:51
- 1 COMMENTS
- /
- 0 LIKES
-
하야로비•2003.03.23 09:00이런식으로 코딩하시면..^^ procedure TForm1.Button1Click(Sender: TObject); var i: inte...
-
- 진돌
- •
- 2003.03.23 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
하야로비•2003.03.23 09:03델마당에도 올라와 있는 것 같은데.. if F_Login.showmodal = mrOk then 이런식으로 하면 되지 않을가요
-
- 박주민
- 2003.03.23 02:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 오병준
- 2003.03.23 02:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 물방울
- •
- 2003.03.23 00:08
- 1 COMMENTS
- /
- 0 LIKES
-
기형종•2003.04.25 18:50답변이 늦었네요 Autodesk.co.kr에 가시면 Volo View Express가 있는데 이것을 설치하면 ActiveX가 등...
-
- 박갑수
- •
- 2003.03.23 00:03
- 2 COMMENTS
- /
- 0 LIKES
-
깨구락지•2003.03.24 00:00구체적으로 질문하시면 정확한 답변을 얻을수 있을겁니다. 님의 질문만으로는 도무지 무엇을 하시려는건지...
-
박갑수•2003.03.24 10:07내 맞아요 text file을 읽어서 jpeg file로 저장하고 싶어요 부탁해요
-
- 이양규
- •
- 2003.03.22 21:59
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2003.03.26 07:35ShowScrollBar(TreeView1.Handle,SB_HORZ,False); 이렇게 해보세요. hsr///////////////////////////////...
-
- 도니
- •
- 2003.03.22 21:49
- 3 COMMENTS
- /
- 0 LIKES
-
오병주•2003.03.22 22:14With Query do Begin close; sql.clear; sql.add(' ~~~~~~~~~~~~...
-
도니•2003.03.22 23:38에고..제가...질문을 이상하게 했나보네엽...ㅠ.ㅠ 죄송합니다.. 더 자세히 예를 들어 질문을 다시 할께요...
-
라케•2003.03.26 18:05Tag 속성을 사용하는 것도 한 방법이 될 듯 합니다...
-
- 내바
- •
- 2003.03.22 21:42
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2003.03.22 22:08말씀하시는 내용이 트레이 프로그램을 만드시는것 같은데.. 지금 말씀하시는 내용은 강의실이나 자료실...
-
- 빵빵빵
- •
- 2003.03.22 19:14
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2003.03.22 21:15취소 버튼 누를때 ModalResult := MrCancel; 추가 시켜 보세요.. 이것을 해도 않되면 ...
-
- 빵빵빵
- •
- 2003.03.22 18:52
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2003.03.22 21:07안녕하세요...델탐 입니다. 서버쪽의 경로가 없는듯 싶군요... 이건 제가 강의실에 올린 내용이거든...
-
- 김나무
- •
- 2003.03.22 18:50
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_Drop•2003.03.22 20:16안녕하세요. 주삼식입니다. 1. 차이점 C++빌더는 델파이의 자식이라고 보시면 됩니다. ...
저는 델3에서 테스트 했어요...
오류없이 잘 처리되는데 다시한번 확인해보세요...
function GetDesktop: String;
var
dir: PItemIDList;
desktop : array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(Application.handle, CSIDL_DESKTOP, dir);
SHGetPathFromIDList(dir, desktop);
Result:=StrPas(desktop);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aaa : string;
begin
aaa := GetDesktop;
showmessage(aaa);
end;