본문 바로가기

Developist

Delphi/꿀팁 외부 프로그램을 내 폼 안에 넣기 var hSrcHandle: THandle; hDstHandle: THandle; function EnumWindowProc(hWindow: HWND; lParam: LPARAM): Boolean; stdcall; Var WndText: string; begin Result := True; //화면에 보이는 프로그램으로 넣어야 하므로 작업표시줄에 보이지 않으면 제외 if not IsWindowVisible(hWindow) then Exit; SetLength(WndText, MAX_PATH); //Caption/Title명으로 프로그램 체크 if GetWindowText(hWindow, PChar(WndText), MAX_PATH) > 0 then begin if Pos('메모장', WndText) > ..
Delphi/정보나누기 OAuth2.0 적용기 프로젝트에서 OAuth2.0 적용을 위해 인디 컴포넌트 만으로 인증 프로세스를 구현해보았습니다.- OAuth2.0 공식 문서 참조.- 로그인과 같은 사용자인증을 위한 Redirect 등의 기능은 제외. 1. 토큰 발급받기procedure GetToken;var http: TIdHTTP; sResponse: string; objTokenInfo: TJSONObject;begin http := TIdHTTP.Create(nil); http.AllowCookies := True; http.HandleRedirects := True; http.HTTPOptions := [hoForceEncodeParams]; http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(htt..
Delphi/꿀팁 Windows API로 Slide 효과 주기 const ANIMATION_DELAY = 100; begin if Memo1.Visible then begin //Memo1을 슬라이드 효과로 사라지게 합니다. AnimateWindow(Memo1.Handle, ANIMATION_DELAY, AW_VER_NEGATIVE or AW_SLIDE or AW_HIDE); Memo1.Visible := False; end else begin //Memo1을 슬라이드 효과로 보이게 합니다. AnimateWindow(Memo1.Handle, ANIMATION_DELAY, AW_VER_POSITIVE or AW_SLIDE or AW_ACTIVATE); Memo1.Visible := True; end; end; 참조 - https://docs.microsoft.com/..

티스토리툴바