EagleSoft

발신자 표시제한으로 전화하는법과 발신자 알아내는법

집전화! ann에서 하자 ♬ | ktanneso http://blog.naver.com/ktanneso/90030216256 발신자 표시제한으로 전화하는법과 발신자 알아내는법 상대방에게 자기번호가 뜨지 않게 하는 방법 휴대폰에서는 *23#을 누르고 상대방 전화번호를 누릅니다. 일반 집전화로는 169를…

듀얼 모니터에서 두번째 모니터에 폼을 띄우기

듀얼 모니터라는 것을 알아 내는 방법은 간단히 Screen.MonitorCount로 알수 있습니다. 근데, 두번째 폼에 폼을 띄우려면 좌표를 알아야 겠지요. Screen.Monitors[0],[1]..[n]까지 모니터의 갯수에 맞게 Monitor의 좌표를 얻어…

System ICon을 ImageList에 가져오고 파일에 따라 보여주기

자신의 컴퓨터에 확장자에 맞는 아이콘을 가져 와서 ImageList에 넣어 줄때 사용하는 함수이다. Uses문에 ShellAPI, ShlObj를 추가한뒤에 사용한다. 전에 만들어 두었던것이 사라져서 다시 만들었다.

procedure GetSysstemICon(sImageList, lImageList: TImageList);
var
  sfi: TShFileInfo;
begin
  // ImageList에 파일의 내용을 넣는다.
  // get access to the shell imagelist...
  sImageList.handle := shgetfileinfo('', 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  sImageList.shareimages := true;
  sImageList.BlendColor := clHighlight;
  lImageList.handle := shgetfileinfo('', 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
  lImageList.shareimages := true;
  lImageList.BlendColor := clHighlight;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

procedure GetSysstemICon(sImageList, lImageList: TImageList);

var

sfi: TShFileInfo;

begin

// ImageList에 파일의 내용을 넣는다.

// get access to the shell imagelist...

sImageList.handle := shgetfileinfo('', 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

sImageList.shareimages := true;

sImageList.BlendColor := clHighlight;

lImageList.handle := shgetfileinfo('', 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);

lImageList.shareimages := true;

lImageList.BlendColor := clHighlight;

end;

아래…

WinPcap – Packet Snooping용 드라이버 및 컴포넌트입니다

WinPcap 이라는 Packet Snooping용 드라이버 및 컴포넌트입니다. 뭐 소스는 C, VCC이고 PDA용 Win-CE 드라이버도 제공 합니다. 아직 사용법은 모르겠고 WIn-CE용은 설치 방법도 모르겟습니다. 일단 소개를…

DBISAM 동적 쿼리에서 필드명을 자동으로만들기 예제.

간단히 구성해 본내용입니다. 동적 쿼리에서 필드명을 자동으로만들기 예제입니다. Bold체를 눈여겨 보시면 될듯.

with DBISAMQuery2 do
begin
  Close;
  SQL.Clear;
  SQL.Text := 'Select * from Clean_Drop';
  Open;

  S := '';
  S1 := '';
  for I := 0 to FieldCount - 1 do
  begin
    S := S + Fields[I].FieldName + ',';
    S1 := S1 + ':' + Fields[I].FieldName + ',';
  end;
     S := Copy(S, 1, length(S) - 1) + ') Values ( ';
  S1 := Copy(S1, 1, length(S1) - 1) + ') ';

  DBISAMQuery3.Close;
  DBISAMQuery3.SQL.Clear;
  DBISAMQuery3.SQL.Text := 'Insert into Temp_Clean_Drop (' + S + S1;

  while not Eof do
  begin
    for I := 0 to FieldCount - 1 do
       DBISAMQuery3.Params[I].Assign(Fields[I]);

    DBISAMQuery3.ExecSQL;
    next;
  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

27

28

29

30

31

with DBISAMQuery2 do

begin

Close;

SQL.Clear;

SQL.Text := 'Select * from Clean_Drop';

Open;

S := '';

S1 := '';

for I := 0 to FieldCount - 1 do

begin

S := S + Fields[I].FieldName + ',';

S1 := S1 + ':' + Fields[I].FieldName + ',';

end;

S := Copy(S, 1, length(S) - 1) + ') Values ( ';

S1 := Copy(S1, 1, length(S1) - 1) + ') ';

DBISAMQuery3.Close;

DBISAMQuery3.SQL.Clear;

DBISAMQuery3.SQL.Text := 'Insert into Temp_Clean_Drop (' + S + S1;

while not Eof do

begin

for I := 0 to FieldCount - 1 do

DBISAMQuery3.Params[I].Assign(Fields[I]);

DBISAMQuery3.ExecSQL;

next;

end;

참고만 하세요.

쿼리 안쓰고, table의 내용을 다른 table에 복사하기.

뭐 전 간단히 DBISAM을 예를 든거지만, 어떤 방식이던 아래처럼 하면 빠릅니다. 쿼리를 이용하면 더 빠르지만, 쿼리를 이용할수 없을때 사용하세요. Session이 다르거나, Server를 Local디비로 내리거나 올릴때…

ShellListView, ShellTreeView에서 Folders 사용하기

가끔 질문이 들어옵니다. ShellTreeView나 ShellListView에서 폴더 또는 화일의 내용을 어찌 해야 하나요? 하고는 물론 ‘잘~~~’ 이라고 애기해 줍니다. ShellTreeView특정 폴더를 안보이게 하기. 안보이게 하는게 아니라…

모든 디스크 드라이브의 Path 알아오기

뭐 간단하게 만들었습니다. 지가요. 년식이 올되다보니 예전꺼 밖에 모른다는 ㅎㅎㅎ 모든 디스크 드라이브의 Path알아오는 방법입니다.

Function GetLogicalDrive(StrList: TStrings): Integer;
var
  I, iT: Integer;
  drv: Array [0 .. 255] of char;
  sDrv: String;
begin
  FillChar(drv, 256, #0);
  iT := GetLogicalDriveStrings(256, drv  );

  for I := 0 to iT - 1 do
  begin
    if drv[I] = #0   then
    begin
      StrList.Add(sDrv  );
      sDrv := '';
    end
    else
      sDrv := sDrv + drv[I];
  end;
  Result := StrList.Count;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Function GetLogicalDrive(StrList: TStrings): Integer;

var

I, iT: Integer;

drv: Array [0 .. 255] of char;

sDrv: String;

begin

FillChar(drv, 256, #0);

iT := GetLogicalDriveStrings(256, drv );

for I := 0 to iT - 1 do

begin

if drv[I] = #0 then

begin

StrList.Add(sDrv );

sDrv := '';

end

else

sDrv := sDrv + drv[I];

end;

Result := StrList.Count;

end;

사용법은 GetLogicalDrive( ListBox1.Items ); 간단하죠? 참고만 하시기 바랍니다.

포스트잇 처럼 내려가지도 않고 항상 최상단이게 만드는 방법

단지 최상단에 놓기만 하는 겁니다. 포스트잇 처럼 내려가지도 않고 항상 최상단이게 만드는 방법입니다. 참고만 하세요.. 중요 키포인트는 아래 두줄입니다. ExStyle := ExStyle or WS_EX_TOOLWINDOW or WS_EX_TOPMOST ;…

[Oracle] PL-SQL 정리

SQL문 SELECT DML(데이터 조작어) INSERT, UPDATE, DELETE DDL(데이터 정의어) IMPLICIT COMMIT CREATE, ALTER, DROP, RENAME, TRUNCATE TCL(트랜잭션 제어) COMMIT, ROLLBACK, SAVEPOINT DCL(데이터 제어어)IMPLICIT COMMIT GRANT,…

EagleSoft

글 목록

발신자 표시제한으로 전화하는법과 발신자 알아내는법

듀얼 모니터에서 두번째 모니터에 폼을 띄우기

System ICon을 ImageList에 가져오고 파일에 따라 보여주기

WinPcap – Packet Snooping용 드라이버 및 컴포넌트입니다

DBISAM 동적 쿼리에서 필드명을 자동으로만들기 예제.

쿼리 안쓰고, table의 내용을 다른 table에 복사하기.

ShellListView, ShellTreeView에서 Folders 사용하기

모든 디스크 드라이브의 Path 알아오기

포스트잇 처럼 내려가지도 않고 항상 최상단이게 만드는 방법

[Oracle] PL-SQL 정리

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

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

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

최신 댓글