파란크리스마스

출처 : http://www.xxlinux.com/linux/dev/Delphi/2007-10-30/11392.html http://dolba.net/old_k2club/bbs/bbs.php3?board=delphi&mode=view&id=345&page=32&recnum=359&keyword=&flag= http://www.pic16.com/BBS/dispbbs.asp?boardID=31&ID=17357&page=3 function StrToBin(const S: string): string; const BitArray: array[0..15] of string = ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '100..

출처 : http://delphi.about.com/cs/adptips2002/a/bltip1002_5.htm type TByteArr = array of byte; function StringToBytes(aString: String): TByteArr; var i: integer; begin SetLength( Result, Length(aString)) ; for i := 0 to Length(aString) - 1 do Result[i] := ord(aString[i + 1]) { - 48} ; end; function BytesToString(aBytes : TByteArr): String; begin Result := PChar(aBytes); end; procedure TForm1.Butto..

출처 : http://www.scalabium.com/faq/dct0106.htm http://delphi.mylivepage.com/wiki/1380/638 uses ShlObj, ActiveX; function GetSystemPath(Folder: Integer): string; var PIDL: PItemIDList; Path: LPSTR; AMalloc: IMalloc; begin Path := StrAlloc(MAX_PATH); SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL); if SHGetPathFromIDList(PIDL, Path) then Result := Path; SHGetMalloc(AMalloc); AMalloc.Fr..

출처 : http://delphi.about.com/od/beginners/l/blrtldatetime.htm http://wwwi.tistory.com/category/델파이 http://www.zetblog.net/Zcontent_list.php?category_idx=61 CompareDate uses DateUtils; //# 같으면 0 출력 ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-01'), StrToDate('2007-04-01')))); //# 오른쪽이 더 크면 -1 출력 ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-01'), StrToDate('2007-04-02')))); //# 왼쪽이 더..

출처 : http://www.swissdelphicenter.ch/torry/showcode.php?id=147 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } id1 : Integer; procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; public { Pu..

출처 http://kurapa.com/content-a411_%25ED%2588%25AC%25EB%25AA%2585%25EC%259C%2588%25EB%258F%2584%25EC%259A%25B0 http://careerblog.scout.co.kr/home/?pSeq=665762&blogURL=http://neodreamer.tistory.com/39 http://careerblog.scout.co.kr/search/?searchtype=4&searchtext=CodeGear // 투명 윈도우 만들기 procedure TfmMain.Button1Click(Sender: TObject); begin SetWindowLong(handle, GWL_EXSTYLE, GetWindowLong(handle, GW..

Delphi Tip - 파일이름 관련 함수 출처 : http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_tip&no=179 http://www.swissdelphicenter.ch/torry/showcode.php?id=144 http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace // 델파이 function ExtractFileDir(const FileName: string): string; function ExtractFileDrive(const FileName: string): string; function ExtractFileName(const FileName: string)..

Delphi Tip - File Download 출처 : http://delphi.about.com/od/internetintranet/a/get_file_net.htm uses WinInet; function GetInetFile (const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin result := false; sAppName := ExtractFileName(Application.ExeName); hSession := ..