분류 전체보기590 SHFileOperation 함수 설명 [함수 원형] WINSHELLAPI int WINAPI SHFileOperation( LPSHFILEOPSTRUCT lpFileOp ); [SHFILEOPSTRUCT 구조체] typedef struct _SHFILEOPSTRUCT{ HWND hwnd; UINT wFunc; LPCSTR pFrom; LPCSTR pTo; FILEOP_FLAGS fFlags; BOOL fAnyOperationsAborted; LPVOID hNameMappings; LPCSTR lpszProgressTitle; } SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT; [파라미터] hwnd 파일 동작 상태에 대하여 정보를 출력하기 위한 대화 상자의 윈도우 핸들 wFunc 수행할 동작. 이 멤버는 다음 값 중 하나.. 2008. 8. 13. 날짜 한글 표기법 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. 이전 1 ··· 111 112 113 114 115 116 117 ··· 148 다음