프로그램 관련 Archives - 12 중 10 번째 페이지

오라클 테이블 락 확인 및 해제 lock(9i)

오라클 테이블 락 확인 및 해제 lock(9i) — 테이블에 lock을 발생시킨 user를 찾을 경우가 많습니다. — 특히 OPS(RAC on 9i) system에서는 더더욱 그런 경우가…

DBISAM의 Server에 Admin을 설정하는 부분의 소스이다. var i: Integer; CurDatabaseUser: string; TempPermissions: TDatabaseRights; begin … DBISAMSession1.GetRemoteUserNames(UserList.Items); // User명 입력. 100명 입력하기. for i := 1…

바탕화면을 Parent로 놓고 바탕화면에 프로그램을 배치하기.

Desktop Window을 프로그램의 Parent에 놓는 방법입니다. 2가지중 원하시는 방법을 사용하세요. 첫번째. DC := GetWindow(GetWindow( FindWindow(‘Progman’,’Program Manager’),GW_CHILD),GW_CHILD); Windows.SetParent( Handle, DC ); 두번째. HW := FindWindow(‘Progman’,’Program Manager’);…

explorer 명령줄 Option 내용..

HOWTO: Windows 탐색기 보기를 사용자 지정하는 방법 이 문서가 적용되는 제품 보기. 기술 자료 ID : 307856 마지막 검토 : 2007년 12월 1일 토요일 수정…

cxGrid에서 Cell의 색을 변경하기.

cxGrid의 TableView의 이벤트에서 CustomDrawCell 이벤트가 있습니다. 이 이벤트는 AViewInfo: TcxGridTableDataCellViewInfo의 값을 이용해서 작업이 가능합니다. 퀀텀은 클래스 객체로 연결 되어 있으므로 AViewInfo: TcxGridTableDataCellViewInfo를 이용해서 셀의 색상…

WebBrowser의 HTML소스보기

WebBrowser의 Html 소스 StringList에 넣는 소스 입니다. 원 소스를 조금 수정한것입니다. 원본 소스 있는곳..http://delphi.about.com/od/internetintranet/l/aa062904a.htm 일반적으로 WebBrowser1.OleObject.Document.documentElement.innerHTML; 이렇게 얻은 내용과 약간의 차이가 있네요.

procedure WB_SaveAs_HTML(WB: TWebBrowser; StrLst: TStrings);
// uses ActiveX;
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  FileStream: TmemoryStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;

  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TmemoryStream.Create;
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('SaveAs HTML fail!');
    FileStream.Position := 0;
    StrLst.Clear;
    StrLst.LoadFromStream(FileStream);
  finally
    FileStream.Free;
  end;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

procedure WB_SaveAs_HTML(WB: TWebBrowser; StrLst: TStrings);

// uses ActiveX;

var

PersistStream: IPersistStreamInit;

Stream: IStream;

FileStream: TmemoryStream;

begin

if not Assigned(WB.Document) then

begin

ShowMessage('Document not loaded!');

Exit;

end;

PersistStream := WB.Document as IPersistStreamInit;

FileStream := TmemoryStream.Create;

try

Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;

if Failed(PersistStream.Save(Stream, True)) then

ShowMessage('SaveAs HTML fail!');

FileStream.Position := 0;

StrLst.Clear;

StrLst.LoadFromStream(FileStream);

finally

FileStream.Free;

end;

Delphi 모니터 화면 해상도 변경 소스

화면의 해상도를 바꾸는 소스 입니다. 대충 만든거라 변수명이나 기타등등이 뭐 좀 그렇습니다. 테스트해본 결과 잘 나옵니다. pageControl은 DevExpress의 내용을 사용한것이므로 일반 pageControl로 바꾸셔도 됩니다.

해상도를 바꾸는 작업은 3가지 함수만 알면 됩니다.
EnumDisplayDevices, EnumDisplaySettings , ChangeDisplaySettings
위 3가지 함수만 알면 간단합니다.
간단히 제작 방법을 설명합니다.

1

2

3

4

해상도를 바꾸는 작업은 3가지 함수만 알면 됩니다.

EnumDisplayDevices, EnumDisplaySettings , ChangeDisplaySettings

위 3가지 함수만 알면 간단합니다.

간단히 제작 방법을 설명합니다.

…

var
  Old_Point, T_Point: TPoint;
  R: Integer;

begin
  T_Point.x := 요기에 원하는 x 좌표를 넣습니다.
  T_Point.y := 요기에 원하는 y 좌표를 넣습니다.

  GetCursorPos(Old_Point);
  // 마우스 좌표를 저장합니다.
  T_Point := ClientToScreen(T_Point);
  // 현재 좌표를 Windows Screen Area의 좌표로 변환.
  SetCursorPos(T_Point.x, T_Point.y);
  // 좌표로 이동합니다.
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0  );
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0  );
  SetCursorPos(Old_Point.x, Old_Point.y);
  // 원상태 복귀.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

var

Old_Point, T_Point: TPoint;

R: Integer;

begin

T_Point.x := 요기에 원하는 x 좌표를 넣습니다.

T_Point.y := 요기에 원하는 y 좌표를 넣습니다.

GetCursorPos(Old_Point);

// 마우스 좌표를 저장합니다.

T_Point := ClientToScreen(T_Point);

// 현재 좌표를 Windows Screen Area의 좌표로 변환.

SetCursorPos(T_Point.x, T_Point.y);

// 좌표로 이동합니다.

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );

mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );

SetCursorPos(Old_Point.x, Old_Point.y);

// 원상태 복귀.

EagleSoft

[카테고리:] 프로그램 관련

오라클 테이블 락 확인 및 해제 lock(9i)

DBISAM DBServer Admin설정하기.

바탕화면을 Parent로 놓고 바탕화면에 프로그램을 배치하기.

explorer 명령줄 Option 내용..

cxGrid에서 Cell의 색을 변경하기.

WebBrowser의 HTML소스보기

Delphi 모니터 화면 해상도 변경 소스

TS 프로그램 – 문자열 검색 프로그램

Skin Components에 대해..

원하는곳에 마우스 포인터 지정하고 클릭한것처럼 꾸미기

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글