코드저장쏘

센토스의 경우(제가 주로 사용하는 서버이다 보니) vi /etc/sysconfig/clock 에서 UTC=true 부분을 false로 변경 후 rdtime -s time.bora.net 으로 시간을 최신으로 변경하세요~

펌)http://linuxrepo.tistory.com/26 1. 리눅스 시간관리 Cent OS 리눅스 시간 관리하기 위한 내용들을 정리합니다. - clock : cmos의 시간을 조절하는 명령어이다. [casualty@host ~]$ cat /etc/adjtime 0.000000 1232693287 0.000000 1232693287 LOCAL - cmos 시간 확인하기 [root@host ~]# clock -r Tue 17 Feb 2009 05:38:38 PM KST -0.458632 seconds - 리눅스 시스템 시각으로 cmos 시간 설정하기 [root@host ~]# clock -r Tue 17 Feb 2009 05:39:50 PM KST -0.846313 seconds [root@host ~]# date Tue Feb 17 17:39:54 KST 2009 [root@host ~]# clock -w [root@host ~]# clock -r Tue 17 Feb 2009 05:40:03 PM KST -0.796464 seconds - cmos 시간으로 리눅스 시스템 시각 설정하기 [root@host ~]# date Tue Feb 17 17:41:22 KST 2009 [root@host ~]# clock -r Tue 17 Feb 2009 05:41:26 PM KST -0.704312 seconds [root@host ~]# clock -s [root@host ~]# date Tue Feb 17 17:41:42 KST 2009 - 시스템의 시간을 출력하기 [root@host ~]# date Tue Feb 17 17:41:42 KST 2009 [root@host ~]# date Tue Feb 17 17:43:03 KST 2009 [root@host ~]# date +%T 17:43:08 [root@host ~]# da...

function tform1.fnGetMacAddress():String; var    UuidCreateFunc : function (var guid: TGUID):HResult;stdcall;    handle : THandle;    g:TGUID;    WinVer:_OSVersionInfoA;    i:integer;    ErrCode: HResult; begin    WinVer.dwOSVersionInfoSize := sizeof(WinVer);    getversionex(WinVer);    handle := LoadLibrary('RPCRT4.DLL');    if WinVer.dwMajorVersion >= 5 then {Windows 2000 }       @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreateSequential')    else       @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreate') ;    UuidCreateFunc(g);    result:='';    for i:=2 to 7 do       result:=result+IntToHex(g.d4[i],2); end; 출처 : http://www.zetblog.net/?0025840062

NETSH.exe FIREWALL SET PORTOPENING TCP  포트번호 SQL ENABLE SUBNET 윈도우 cmd모드에서 실행하시면 됩니다. 별도의 스크립트(배치)로 실행해도 되고 델파이에서 쉘이나 윈exec로 실행해도 됨

http://www.645lotto.net/resultall/dummy.asp

type 절에   TWinVersion = (wvUnknown, wvWin95, wvWin98, wvWin98SE, wvWinNT, wvWinME, wvWin2000,wvWin2003, wvWinXP, wvWinVista, wvWin7  ) ; 추가~ function TuNAS_allow.GetWinVersion: TWinVersion; var osVerInfo: TOSVersionInfo; majorVersion, minorVersion: Integer; begin Result := wvUnknown; osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo) ; if GetVersionEx(osVerInfo) then begin minorVersion := osVerInfo.dwMinorVersion; majorVersion := osVerInfo.dwMajorVersion; case osVerInfo.dwPlatformId of VER_PLATFORM_WIN32_NT: begin if majorVersion <= 4 then Result := wvWinNT else if (majorVersion = 5) and (minorVersion = 2) then Result := wvWin2003 else if (majorVersion = 5) and (minorVersion = 0) then Result := wvWin2000 else if (majorVersion = 5) and (minorVersion = 1) then Result := wvWinXP else if (majorVersion = 7) then Result := wvWin7 else if (majorVersion = 6) then Result := wvWinVista; end; VER_PLATFORM_WIN32_WINDOWS: begin if (majorVersion = 4)...

find 라는 명령으로, 디스크에 저장된 각종 파일/디렉토리를 검색할 수 있습니다. 파일 찾기 (파일명 검색) 현재 디렉토리에서, pl 확장자를 가진 모든 파일 찾기 find -name '*.pl' (현재 디렉토리 밑의 하위 디렉토리까지 다 찾습니다.) 루트에서부터, 즉 전체 하드에서, pl 확장자를 가진 모든 파일 찾기 find / -name '*.pl' 전체 하드 디스크에서, 파일명이 ab 로 시작하는 모든 파일 찾기 find / -name 'ab*' 전체 하드 디스크에서, 파일명이 .bash 로 시작하는 모든 파일 찾기 find / -name '.bash*' 전체 하드 디스크에서, 파일명이 .bash 로 시작하는 모든 파일 찾기 + ls 명령 형식으로 출력 find / -name '.bash*' -ls 뒤에 -ls 라는 옵션을 붙이면 됩니다. 디렉토리명 찾기 전체 하드 디스크에서, 디렉토리 이름이 et 로 시작하는 모든 디렉토리 찾기 find / -name 'et*' -type d 주의! 옵션 순서를 바꾸면 에러가 납니다

출처 : http://wwwi.tistory.com/264 // 지정한 폴더의 파일 리스트 가져오기 : 서브 폴더 검색 대응 function FindFiles(const sPath, sMask: string; slFiles: TStringList; bSubDir: boolean): integer; var iFindResult: integer; srSchRec : TSearchRec; begin result := 0; iFindResult := FindFirst(sPath + sMask, faAnyFile - faDirectory, srSchRec); while iFindResult = 0 do begin slFiles.Add(sPath + srSchRec.Name); iFindResult := FindNext(srSchRec); end; FindClose(srSchRec); if bSubDir then begin iFindResult := FindFirst(sPath + '*.*', faDirectory, srSchRec); while iFindResult = 0 do begin if (srSchRec.Name <> '.') and (srSchRec.Name <> '..') then result := result + FindFiles(sPath + srSchRec.Name + '\', sMask, slFiles, TRUE); iFindResult := FindNext(srSchRec); end; FindClose(srSchRec); end; end; procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin Button1.Enabled := false; sl := TStringList.Create; sl.Clear; FindFiles(...

윈도우를 맨 위로 위치시키는 방법에 대한 것입니다. 이게 윈도우들의 z-order에 따라 되다 안되다 하는 경우가 생깁니다. 다음과 같은 방법으로 가능합니다. 출처 : http://www.tipssoft.com/bulletin/board.php?bo_table=QnA&wr_id=400 if(::GetForegroundWindow() != this->m_hWnd){ HWND h_active_wnd = ::GetForegroundWindow(); if(h_active_wnd != NULL){ DWORD thread_id = GetWindowThreadProcessId(h_active_wnd, NULL); DWORD current_thread_id = GetCurrentThreadId(); if(current_thread_id != thread_id){ if(AttachThreadInput(current_thread_id, thread_id, TRUE)){ BringWindowToTop(); AttachThreadInput(current_thread_id, thread_id, FALSE); } } } } 자세한 설명은 위의 출처 글을 참고하시기 바랍니다.

출처 http://soff.tistory.com/23 The LockWindowUpdate function disables or reenables drawing in the specified window. Only one window can be locked at a time. BOOL LockWindowUpdate( HWND hWndLock // handle of window to lock ); 윈도우 작업영역에 그리는 모습을 잠시 화면에 보여주지 않고 내부적으로 그림을 그려 사용자에게 바로 그림을 보여주려 할때 사용된다. LockWindowUpdate(Handle)을 주게되면 핸들의 영역은 그려지지 않고 내부적으로 그림을 그리다가LockWindowUpdate(0)을 주게되면 풀려지면서 바로 화면에 나타난다. ex) begin LockWindowUpdate(Form1.Handle); ... LockWindowUpdate(0); end;

[TMemo Component] 현재 라인번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄이 몇 번째 줄인지를 리턴한다. Label1.Caption := IntToStr(GetCurrLine(Memo1)); function GetCurrLine(Memo : TMemo) : integer; begin Result := Memo.Perform(EM_LINEFROMCHAR, Memo.SelStart, 0); end; [TMemo Component] 현재 컬럼번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄에서 몇 번째 컬럼인지를 리턴한다. Label1.Caption := IntToStr(GetCurrCul(Memo1)); function GetCurrCul(Memo : TMemo)) : integer; begin Result := Memo.SelStart - Memo.Perform(EM_LINEINDEX, GetCurrLine(Memo), 0); end; [TMemo Component] Caret를 원하는 라인으로 이동하기 Caret을 원하는 위치로 이동시키는데 이때 넘겨주는 값이 라인의 한계를 벗어나면 그 안 범위로 위치시킨다. 만약 라인의 맨끝으로 이동시키고 싶다면 아주 큰값을 주면된다. SetCurrLine(Memo1. 10); procedure SetCurrLine(Memo : TMemo; Value : integer); begin if Value < 0 then Value := 0; if Value > Memo.Lines.Count then Value := Memo.Lines.Count; Memo.SelLength := 0; Memo.SelStart := Memo.Perform(EM_LINEINDEX, Value, 0); end; [TMemo Component] Caret을 원하는 컬럼으로 이동하기 SetCurrCul(Memo1. 10); pr...

출처)http://www.oskorean.com/skin/board/mw.basic/mw.proc/mw.print.php?bo_table=B03&wr_id=6 phpMyadmin 현재 최신버전인 3.3.4 버전 설치 이프로그램은 웹상에서 해당서버에 위치한 자신의 계정 DB를 관리할 수 있는 강력 데이타베이스 관리할 수 있는 원격 툴(Tool)이다. 이것은 PHP로 작성된 웹프로그램이므로 PHP가 설치된 서버에서만이 작동된다. 국내에서 인기가 좋은 제로보드라는 PHP용 게시판은 MySQL데이타베이스를 이용하는데, 이를 관리하기 위해서는 PHPMyAdmin을 이용하는 것이 매우 유용합니다. 그밖에도 MySQL과 연동해서 작동되는 PHP프로그램들을 설치하고 운영할시에는 최소한 이러한 툴정도는 어느정도 다룰줄 알아야만 웹사이트를 관리하고 운영하기가 수월합니다. 데이베이스에 대한 백업, 복구, 최적화, 테이블검사와 같이 기능을 포함하고 있으므로 매우용이하기 때문에 초보자들도 이용하기가 쉽습니다. [다운로드] http://oskorean.com/bbs/board.php?bo_table=B64&wr_id=4&page=0&sca=&sfl=wr_subject%7C%7Cwr_content&stx=&sst=&sod=&spt=0&page=0 다운로드 > 소프트웨어 > 리눅스 > phpMyAdmin-3.3.4-all-languages.tar [공식 다운로드사이트] http://www.phpmyadmin.net/home_page/downloads.php 언어는 보통 한글을 사용해야 하므로 all-languages 가 있는것을 다운 받으시면 됩니다. phpMyAdmin-3.3.4-all-languages.tar.gz 를 다운로드하여 서버에 업로드 합니다. # tar zxvf phpMyAdmin-3.3.4-all-languages.tar.gz # 아파치 버츄얼호스트 설정 -...

출처) http://supaflow.tistory.com/120 우분투 리눅스에서 APM(Apache+Php+MySQL)을 설치해 보도록 하겠습니다. 이 글은 컴파일해서 쓰는게 아니라 패키지 자체설치로 초보자도 간단하게 설치해볼수 있습니다. APM이란 리눅스에서 웹서버를 구성할때 많이 쓰는 프로그램의 일반적인 통합명칭입니다. 부르기 쉽게 한데로 모아서 APM이라고 부릅니다. 요즘은 LAMP(Linux + Apache + MySQL + Php/Perl,Python)환경 이라고도 부르기도 합니다. 아파치(Apache)는 웹서버 자체로서 일반적인 프로토콜인 Http프로토콜을 사용합니다. 또한 Https,ftp등도 지원을 하게 됩니다.http://supaflow.tistory.com/120 MySQL은 데이터베이스 엔진으로서 각종 게시판이나 데이터베이스를 사용해야할때 많이 쓰이는 프로그램입니다. MySQL뿐만 아니라 PostgresSQL도 사용이 가능합니다. PHP는 스크립트언어로서 웹페이지를 구성할수 있는 언어중 하나입니다. 많은 웹 프로그램들이 php로 작성 되고 있습니다. 일반적으로 설치순서는 Apache -> MySQL -> PHP 등으로 이루어 지게 됩니다. 1) 설치 1.Apache 먼저 Apache를 설치하여 보겠습니다. 버전은 apache2버전을 기준으로 하겠습니다. 터미널을 열고 다음 명령을 입력합니다. sudo apt-get install apache2 다음으로 mysql을 인증을 위한 모듈을 설치하겠습니다. sudo apt-get install libapache2-mod-auth-mysql 다음으로 MySQL sudo apt-get install mysql-server mysql-client 설치가 완료되면 MySQL서버가 자동으로 시작이 됩니다. 마지막으로 PHP 버전은 PHP5 기준으로 하겠습니다. 마찬가지로 터미널에서 다음을...

Append System Unit 문법 : procedure Append(var f:Text); 파일을 추가 기록용으로 오픈한다. 파일 변수 F는 Assign으로 외부 파일과 연결되어 있어야 한다. 외부 파일이 없으면 에러 가 발생하며 이미 열려 있는 경우는 파일을 닫은 후 다시 연 다. 파일을 오픈한 후 FP는 파일 끝(EOF)에 위치시키므로 추 가적인 데이터를 파일 끝에 추가할 수 있다. 다음 예는 루트 디렉토리의 AUTOEXEC.BAT 파일 끝에 PROMPT문을 추가 한다. var F: TextFile; begin AssignFile(F, 'c:\autoexec.bat'); Append(F); { 파일 오픈 } Writeln(F, 'prompt $p$g'); CloseFile(F); { 파일 닫음 } end; end. AssignCrt WinCrt Unit 문법 : procedure AssignCrt(var f:Text); 텍스트 파일 변수를 CRT 윈도우와 연결한다. CRT와 연결된 텍스트 파일은 텍스트 환경의 화면을 에뮬레이션하며 이 파 일로 문자열을 출력하면 CRT 화면으로 문자열이 출력된다. 표준 입출력 명령보다 텍스트 파일을 사용하여 CRT로 입출 력하는 것이 속도가 조금 더 빠르다. 다음 예는 SF라는 텍스 트 파일을 CRT로 연결하여 문자열을 출력한다. var SF:TextFile; begin AssignCRT(SF); Rewrite(SF); Writeln(SF,'Screen File'); CloseFile(SF); end; AssignFile system Unit 문법 : procedure AssignFile(var f,String); 텍스트 파일 변수와 외부 파일을 연결한다. 즉 파일 핸들에 파일을 할당한다. 일단 파일과 핸들이 연결되면 핸들에 대한 모든 조작은 파일로 입출력된다. 이 프로시저로 핸들에 파일 을 할...