Application179 날짜 한글 표기법 FormatDateTime('yyyy년 mmmm DD일 t:ss',Now) 다른것도 있을것 같은데.. 요건 허접 팁 같네~~ 2008. 8. 13. IE URL 찾기, Frame 안의 Url 도 찾는다. uses MSHTML_TLB, OleCtrls, SHDocVw, ExtCtrls, ActiveX .... procedure TForm1.Button2Click(Sender: TObject); var pvShell : IShellWindows; ovIE : OleVariant; i : Integer; ShellWin: TShellWindows; WB: IWebBrowser2; Doc: IHTMLDocument2; Container: IOleContainer; Enumerator: ActiveX.IEnumUnknown; Unknown: IUnknown; Browser: IWebBrowser2; Fetched: Longint; NewDoc: IHTMLDocument2; FrameSource: String; /.. 2008. 8. 13. IE 버젼 구하기 uses Registry; function GetIEVersion(Key: string): string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Internet Explorer', False); try Result := Reg.ReadString(Key); except Result := ''; end; Reg.CloseKey; finally Reg.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('IE-Version: ' + Get.. 2008. 8. 13. Gaussian Blur in Delphi You can do it like so. In informal testing it appears to take roughly twice as much time as Adobe Photoshop takes to do the same thing, which seems pretty OK to me - there are a lot of things you could do to speed it up. The gaussian kernel exp(-(x^2 + y^2)) is of the form f(x)*g(y), which means that you can perform a two-dimensional convolution by doing a sequence of one-dimensional convolution.. 2008. 8. 13. 이전 1 ··· 14 15 16 17 18 19 20 ··· 45 다음