삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

type TWindowsVersion = ( wvUnknow, wvWin31, wvWin9x, wvWin95, wvWin95OSR2, wvWin98, wvWin98SE, wvWinMe, wvWinNT, wvWinNT3, wvWinNT4, wvWin2000, wvWinXP, wvWin2003, wvWinVista, wvWin7 ); function GetWindowsVersion(var WindowsName: String): TWindowsVersion; var VI: TOSVersionInfo; WinVersion: TWindowsVersion; begin VI.dwOSVersionInfoSize := SizeOf(VI); GetVersionEx(VI); WinVersion := wvUnknow; cas..

function GetLocalIP : String; var WSAData: TWSAData; HostName, IPAddress: String; HostEnt: PHostEnt; begin WSAStartup(2, WSAData); SetLength(HostName, 255); GetHostname(PChar(HostName), 255); SetLength(HostName, StrLen(PChar(HostName))); HostEnt := GetHostByName(PChar(HostName)); with HostEnt^ do IPAddress := Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr..

function GetFileVersion(FilePath: String; VerType: Integer): Integer; var InfoSize: Integer; dwH: DWORD; Buf: PChar; pFileInfo: PVsFixedFileInfo; Len: UINT; begin Result := 0; // 파일존재여부 검사 if not FileExists(FilePath) then Exit; InfoSize := GetFileVersionInfoSize(PChar(FilePath), dwH); if InfoSize = 0 then Exit; GetMem(Buf, InfoSize); if GetFileVersionInfo(PChar(FilePath), 0, InfoSize, Buf) then ..

function GetWebBrowserURL: String; var m_WebBrowser : IWebBrowser2; ShellWindow : IShellWindows; WebIE : OleVariant; TmpIE : OleVariant; Loop : Integer; begin ShellWindow := CoShellWindows.Create; try for Loop := ShellWindow.Count-1 downto 0 do begin WebIE := ShellWindow.Item( Loop ); if not Assigned( IDispatch(WebIE) ) then Continue; if (IDispatch(WebIE).QueryInterface(IWebBrowser2, m_WebBrowse..

// 사운드 플레이하기 procedure PlaySound(const FileName: String); begin sndPlaySound(PChar(FileName), SND_ASYNC); end;

// 임시폴더 경로구하기 function GetTempFolder : String; var Buffer : array[0..1023] of Char; begin SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer)); end;

기본적으로 뮤텍스를 사용하여 중복실행 여부를 체크한다. program Project; uses Forms, Windows, Dialogs, unt_Main in 'unt_Main.pas' {frm_Main}; var Mutex : THandle; {$R *.res} begin Mutex := CreateMutex(nil, True, 'BDGG');//'YourMutex'); if (Mutex 0 ) and (GetLastError = 0) then begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(Tfrm_Main, frm_Main); Application.Run; end else begin..

procedure Tfrm_Main.MouseLock; var Rect : TRect; begin Rect.TopLeft.X := frm_Main.Left; Rect.TopLeft.Y := frm_Main.Top; Rect.BottomRight.X := frm_Main.Left + frm_Main.Width; Rect.BottomRight.Y := frm_Main.Top + frm_Main.Height; ClipCursor(@Rect); // 마우스 활동범위를 폼 영역안으로 제한 end;

델파이 2007에는 기본적으로 오피스2000에 대한 지원이 이루어진다. 하지만, 나는 오피스 2010을 쓰는걸! 흄흄;; 오피스2000 용을 사용해도 무방하나.. 2010에 없는 필드나 기능이 없는건 사실이다. 그래서 오피스 2010을 뽑아내서 사용하기로 했다. 방법은 여러 번 설명한 Import Component 이다. 자세한 설명은 아래의 그림으로 대신한다.

웹 에디터를 만들어 볼 작정으로 DHTML 을 임포팅한 후에 글꼴이라던가, 폰트사이즈라던가 수정을 하려면 콤보박스가 필요했다. 그러면 필요한게 콤보박스도 올라가야 하고, DHTML도 올라가야 하는 무언가가 있어야 한다. 나는 TFrame 를 사용하여 그 위에 컨트롤을 배치하도록 했다. 환경은 Window7, Delphi 2007 이다. 먼저 Component - New VCL Component 를 눌러서 TFrame를 찾아보자. 그렇다. 아무리 찾아도 없다 -_-;; 왜 없는지는 잘 모르겠으며 찾아보지도 않았음.. (욕하지마세요 ㅠㅠ) (앗, 한 번 꽁수를 쓰고 나니 목록에 TFrame 가 보이긴 한데 정장 dfm 이 생성되지 않았음) 이제 꽁수를 쓸 차례이다. 우선 File - New - Package..

VCLSkin - http://www.link-rank.com/ SUIPack - http://www.sunisoft.com/ BusinessSkinForm/DynamicSkinForm - http://www.almdev.com/ ThemeEngine - http://www.ksdev.com/ ThemeControls - http://www.syntetix.com/ AlphaControls - http://www.alphaskins.com/ TMS Skin Factory - http://www.tmssoftware.com/