1. 실행파일이 존재하는 폴더의 경로 추출하기
문자 : 경로;
문자 : 경로;
경로 := 경로추출(실행파일명);
메모0.내용.파일읽어(경로 + "\"
경로 := 경로추출(실행파일명);
메모0.내용.파일읽어(경로 + "\" +  "메모장.txt");

2. 난수 이용하기
실수 : 수;
수 := 난수(10);

3. 매체재생기로 음악파일 재생시 재생진행도 눈금계에 표시하기
--- 시계 ---
눈금계0.눈금위치 := (매체재생기0.위치 * 100) / 매체재생기0.크기;

4. 리스트박스 내용 저장하기
리스트박스0.내용.파일저장해(C:\TEST.RTF);

파일관리 창이 보여지면서 저장을 하고 싶다면...

만일(파일관리창0.보여)
리스트박스0.내용.파일저장해(파일관리창0.파일명); 

5. 메모0에 내용추가하기
메모0.선택문자 := "추가될 내용";

6. 버튼 클릭 / 메뉴 클릭하기
버튼0.눌러;
메뉴0.클릭해;

7. 툴바의 버튼들을 기능별로 분할대를 이용하여 분할하기
툴바에 멀티버튼들을 넣습니다. 그후 원하는 곳에 분할대를 넣습니다.
만약 멀티버튼 높이가 32라면 분할대 높이는 30으로 하고 폭은 1로 합니다.
그리고 분할대 속성에서 커서를 표준으로 바꾸고 창의 명령어 중 생성할때에
분할대*.커서 := ㅋㅅ표준;
분할대*.제어 := 거짓;
으로 하면 됩니다.

8. 다른 프로그램 실행하기
실행해(ㅅㅎ열기,"c:\디렉토리\파일명.확장자" , "", ㅊㅂ보기);

9. ㅎ에디트에 문자 추가하기
에디트0.문자 := 에디트0.문자 + "추가될 문자";

10. 윈도우즈 바탕화면 알아내기
밑의 레지스트리를 찾아보면 바탕화면 뿐만 아니라 갖가지 유용한 폴더의 경로를 알아낼수 있습니다..

문자 : 시스템경로;
실수 : 핸들; 
핸들 := 등록열어(HKEY_CURRENT_USER); 
시스템경로 := 등록문읽어(핸들, "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop", "읽기실패"); 
등록닫아(핸들);
문자창보여("당신의 바탕화면은 "+시스템경로+" 입니다.");

11. 작업표시줄에 프로그램 태스크 바 없애기
- 연결파일명 : user32.dll
- 명령어
  진리함수: ShowWindow (실수: 핸들, 상태);
- 사용법
 --- 초기화 명령어 ----------
실수:SW_HIDE,SW_NORMAL,SW_RESTORE; 

SW_HIDE := 0;
SW_NORMAL := 1;
SW_RESTORE := 9; 
 
  --- 태스크 바 숨기기 --------
사용자함수0.ShowWindow (_프로그램핸들, SW_HIDE);

  --- 태스크 바 다시 나타내기 ------- 
사용자함수0.ShowWindow (_프로그램핸들, SW_NORMAL);
안되면,, SW_RESTORE로..

12. 정보창에 아이콘 넣기
정보창보여(창0.제목, "쓰고 싶은 말", 창0.아이콘.핸들);

13. 줄이동 예제
메모0.내용위치 := 이동할줄수;

14. 창닫기 버튼 눌러도 안닫히게 하기 
창의 닫기전에 라는 명령어에
_닫기 := 거짓;
라고 넣으면 창닫기 기능이 없어짐.

버튼 하나를 만들고, 클릭했을때에
끝내;
이렇게 하면 창이 닫아짐.

15. 창이 다른 창보다 위로 가게 하기
창0.창형식 := ㅊㅇ맨위; 
 
16. 창을 옮긴 후 창 위치 기억하기
//"창0" 명령어편집의 "닫을때" 명령어...
실수: 핸들;
핸들 := 환경열어("windows.ini");
환경수써(핸들, "윗변위치", "윗변", 창0.윗변);
환경수써(핸들, "좌변위치", "좌변", 창0.좌변);
환경닫아(핸들);

//"창0"명령어편집의 "생성할때" 명령어...
실수: 핸들;
핸들 := 환경열어("windows.ini");
이름표0.제목 := 수를문(환경수읽어(핸들, "윗변위치", "윗변", 창0.윗변));
이름표1.제목 := 수를문(환경수읽어(핸들, "좌변위치", "좌변", 창0.좌변));
환경닫아(핸들);

창0.윗변 := 문을수(이름표0.제목, 창0.윗변);
창0.좌변 := 문을수(이름표1.제목, 창0.좌변);

17. 창을 무조건 중앙에 놓기
창0.위치크기바꿔((화면폭 - 창0.폭)/2, (화면높이 - 창0.높이)/2, 창0.폭, 창0.높이);

18. 단축키에 밑줄 넣기
프로그램을 단축키 표시를 (A) 이런식으로 밑줄이 그어진 것을 볼것이다..
(&A)이렇게 입력을 하면된다..

19. 콤보박스 내용을 메모에 출력하기
메모0.내용 := 콤보박스0.내용;

본 방법은 아주 간단한 프로그램에는 좋지만...계속 명령시에는 메모리딸린 컴퓨터에서는 에러나지요.

메모0.내용.할당해(콤보박스0.내용); 

20. 키코드 알아내기
ㅎ창 을 하나준비하시고.. 자판을 땔때든지 누를때든지..
거기에 이렇게 코드를 넣으세요.. 
창0.제목 := 수를문(_키); 

21. 파일관리창 제목 바꾸기  
파일관리창0.제목 := "♧ 그림 선택 ♧";
만일(파일관리창0.보여(ㅇㅈ열기))
그림판0.그림.파일읽어(파일관리창0.파일명);

22. 풍선말 제어하기
풍선말최소시간
풍선말최소시간 := 2000;
창0.풍선말 := "안녕하세요. 저는 풍선말이예요";
창0.풍선말사용 := 참;

풍선말시간
풍선말시간 := 3000;
창0.풍선말 := "안녕하세요. 저는 풍선말이예요";
창0.풍선말사용 := 참

풍선말숨김시간
풍선말숨김시간 := 8000;
창0.풍선말 := "안녕하세요. 저는 풍선말이예요";
창0.풍선말사용 := 참;

풍선말의 색상은 자기마음대로
풍선말색상 := ㅅ하늘;
창0.풍선말 := "안녕하세요. 저는 풍선말이예요";
창0.풍선말사용 := 참;
 
도움말파일연결
도움말파일 := "c:\test.hlp";
도움말내용보여(1);
 
23. API 타이머
사용자함수0.연결파일 := "kernel32.dll";
실수함수: GetTickCount;

--- 초기화명령어 --------
실수: 처음틱카운트, 나중틱카운트;

--- 버튼0.클릭했을때--------
처음틱카운트 := 사용자함수0.GettickCount;
반복 {
나중틱카운트 := 사용자함수0.gettickcount - 처음틱카운트;
같이실행해;
} 까지(나중틱카운트 >= 1000); // 1000 = 1초
나중틱카운트 := 0;
문자창보여("뷁");

24. IE 다운로드하기
실행해(ㅅㅎ열기, "C:\Program Files\Internet Explorer\IEXPLORE.EXE", "http://aaa.com/a.zip",ㅊㅂ숨김);

25. 사용자함수 정리

1. 다른 프로그램 종료하기
 - 연결파일명 : user32.dll
 - 명령어
  실수함수:FindWindowA(문자:값,값1);
 - 사용법
  실수:핸들;
  핸들:=사용자함수0.FindWindowA("", 문자:프로그램제목);
 //강제 종료시킬 프로그램의 핸들 구해서
  postmessage(핸들, 16, 0, 0);
 //강제 종료한다..

2. 웹파일 다운로드하기
 - 연결파일명 : urlmon.dll
 - 명령어
  실수함수: URLDownloadToFileA(실수: pCaller; 문자: szURL, szFileName; 실수: dwReserved, lpfnCB);
 - 사용법
  실수 : 성공반환;
  성공반환 := 사용자함수0.URLDownloadToFileA(0, "http://웹파일주소","C:\저장위치", 0, 0);
  만일(성공반환 = 0)
   문자창보여("다운로드 함수");
  아니면 문자창보여("다운로드 실패");
 //다운로드 성공시 0을 반환함

3. 마우스 제어 관련
 - 연결파일명 : user32.dll
 - 명령어
  함수:mouse_event(실수:dwFlags, dx, dy, cButtons, dwExtraInfo);
 - 사용법
  사용자함수0.mouse_event(플래그,x, y, 0, 0);
 //mouse_event(플래그, X, Y, 버튼, 기타정보)
 //MOUSEEVENTF_LEFTDOWN = 2
 //MOUSEEVENTF_LEFTUP = 4
 //MOUSEEVENTF_RIGHTDOWN = 8
 //MOUSEEVENTF_RIGHTUP = 16

4. 키보드 키 자동으로 눌러주는 함수
 - 연결파일명 : user32.dll
 - 명령어
  실수함수:keybd_event(실수:bVk,bScan,dwFlags,dwExtraInfo)
 - 사용법
  사용자함수0.keybd_event(아스키코드값,0,0,0);

5. 트레이로 프로그램 최소화 및 복구하기
 - 연결파일명 : user32.dll
 - 명령어
  함수:SetForegroundWindow(실수:hwnd);
  진리함수:ShowWindow(실수:핸들,상태);
 - 사용법
  사용자함수0.ShowWindow(창0.핸들,9);
  사용자함수0.ShowWindow(_프로그램핸들,9);
  사용자함수0.SetForegroundWindow(창0.핸들);

6. FTP로 접속해서 파일 업로드 및 다운로드 하기
 - 연결파일명 : Filetr32.dll
 - 명령어
  실수함수 : File_Upload(문자 : host_ipstr, user_name, pass_word, tar_dir, tar_file, src_file);
  실수함수: File_Download(문자: host_ipstr, user_name, pass_word, src_dir, src_file, tar_file);
 - 사용법
 //업로드
  사용자함수0.File_Upload("접속IP", "접속아이디", "접속비밀번호", "/public_html", "웹상에 저장시킬 파일명","C:\업로드시킬 파일의 위치\파일명");
 //다운로드
  사용자함수0.File_Download("접속IP", "접속아이디", "비밀번호", "/public_html", "다운로드할 웹상의 파일명", "C:\저장할 위치\파일명");


원문보기
초보자에게 유용.

'프로그래밍 > 창조' 카테고리의 다른 글

[자작] (영재교육원 산출물대회) 트윅튜닝  (0) 2011.01.02
[자작] 휴지통 비우기  (0) 2010.08.19
[자작] CD 꺼내기  (2) 2010.08.19
창조메뉴얼  (0) 2009.05.01
유용한 정보 모음  (0) 2009.04.06
창조유저그룹 - 커즈닷컴  (0) 2009.03.01

+ Recent posts