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

// 이전 컨트롤 Shift + Tab PostMessage(Handle, WM_NEXTDLGCTL, 1, 0); // 다음 컨트롤 Tab PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Edit..

Procedure Tfrm_Main.SleepProc(milisecond : DWORD); var maxloop : Integer; iindex : integer; begin maxloop := (milisecond div 50)+(milisecond mod 50); for iindex := 1 to maxloop do begin if Application.Terminated then begin Break; Exit; Application.Terminate; end; Sleep(50); Application.ProcessMessages; end; end; TWebBrowser 사용시 sleep를 호출했을 때, 만약 페이지 로딩중이었다면 TWebBrowser까지 먹통이 되어버린다. 위의 함수는 델마당 홈페..

procedure WaitForWebLoding(Web: TWebBrowser); begin while Web.ReadyState READYSTATE_COMPLETE do Application.ProcessMessages; end; TWebBrowser 에도 페이지가 로딩이 다 되면 떨어지는 이벤트가 있다. 하지만 이 것은 정상적으로 로딩이 다 되지 않아도 호출되거나, 2번 호출되는 등의 문제가 있다. 하지만 소개한데로 하면 완벽히(?) 로딩될때까지 대기한다. 단, Refresh로 페이지 새로고침을 했을경우에는 먹히지 않는다는점~

// [1] // uses SHDocVw, ActiveX function GetScriptOfHTML(Web: TWebBrowser; HTML: TStrings) : Boolean; var PersistStream: IPersistStreamInit; Stream: IStream; FileStream: TmemoryStream; begin try if not Assigned(Web.Document) then begin Result := False; //ShowMessage('Document not loaded!'); Exit; end; PersistStream := Web.Document as IPersistStreamInit; FileStream := TmemoryStream.Create; try St..

원래 SQLite 를 사용하려고 검색하다가 우연히 NexusDB를 알게 되었다. 파이어버드니 SQLite니 배포시에는 반드시 dll을 같이 배포해야 하는데 이 NexusDB는 배포할 때 다른 것이 필요가 없다. 델파이로 만들어 졌다고 하는데 델파이에서 사용하기에는 딱인거 같다. 도움말도 잘 되어있고, 자체적으로 엔터프라이즈 관리자까지 제공해주기 때문에 뭐하나 흠잡힐데가 없다. 단점은 더 사용하면서 봐야겠지만, 매우 만족임 ㅎㅎㅎ 거기다가 라이센스는 개발자용은 공짜다. dcu만 제공되고 source는 제공되지 않는다. 단, 구매를 할 경우에는 source가 제공된다. 이건 뭐... 좋은거임 ㅋㅋ http://www.nexusdb.com/support/ 자세한 사용법 찾으려고 고생하지 마시길.... 도움말 ..

델파이 컴포넌트를 설치하고 나서 해당 컴포넌트를 사용한 프로젝트를 컴파일했을 때 위와 같은 에러가 날 때가 있다. 구글신에게 물으니 바로 답이 나오더라. 시키는데로 하니 정상적으로 컴파일 잘 됨. 해답은 아래의 링크 http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/cm_nobuild_requires_xml.html

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;