델파이 Archives - 12 중 9 번째 페이지

시스템의 논리 드라이브명 가져오고 가져온 드라이브의 종류(Type)을 알아내기.

조금 연식이 오래된 프로그램의 하드 코딩입니다. 아래는 간단히 전체 드라이브의 모든 드라이브를 가져 옵니다. GetLogicalDrives API 함수와 약간 혼동은 되지만. GetLogicalDrive라고 이름을 붙여 사용합니다. 일단…

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

듀얼 모니터라는 것을 알아 내는 방법은 간단히 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;

참고만 하세요.

EagleSoft

[카테고리:] 델파이

시스템의 논리 드라이브명 가져오고 가져온 드라이브의 종류(Type)을 알아내기.

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

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

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

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

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

ShellListView, ShellTreeView에서 Folders 사용하기

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

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

DBISAM DBServer Admin설정하기.

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

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

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

최신 댓글