삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

나의 경우에는 패시브 모드를 True로 해줌으로써 해결했다.

procedure TForm2.Button1Click(Sender: TObject); var HParent : HWND; HChild : HWND; begin HParent := FindWindow('TForm1', nil); if HParent 0 then begin HChild := FindWindowEx(HParent, 0, 'TButton', nil); if HChild 0 then begin SendMessage(HChild, WM_LBUTTONDOWN, 0, 0); SendMessage(HChild, WM_LBUTTONUP, 0, 0); end; end; end;

http://megawave.pe.kr/11

//[방법1] type function IsHungAppWindow(hwnd: HWND): boolean; stdcall; external user32 name 'IsHungAppWindow'; ... implementation ... if IsHungAppWindow(핸들) then {응답없음} // [방법2] // WM_NULL을 SendMessageTimeOut 으로 날려본다. // 정상적으로 처리되면 그 프로그램은 살아 있는거다 // 처리 안되면 응답없는거고

// 윈도우 사용자 이름 알아내기. function GetUserFromWindows : String; var UserName : String; UserNameLen : Dword; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Result := Copy(UserName,1,UserNameLen - 1) else Result := ''; end;

// 컴퓨터 이름 알아내기. function GetComputerNetName: String; var buffer: array[0..255] of char; size: dword; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := '' end;

// 파일 휴지통으로 보내기. function DeleteFileWithUndo(sFileName : String ) : Boolean; var fos : TSHFileOpStruct; begin FillChar( fos, SizeOf( fos ), 0 ); with fos do begin //Wn := application.handle; wFunc := FO_DELETE; pFrom := PChar( sFileName ); fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRM!ATION or FOF_SILENT; end; Result := ( 0 = ShFileOperation( fos ) ); end;

// 파일 선택해서 아이콘 가져오기. function GetFileIcon(sFileName: String; IsSmall: Boolean) : HIcon; var SHFileInfo: TSHFileInfo; vFlag : Cardinal; begin vFlag := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_EXETYPE; if IsSmall then vFlag := vFlag or SHGFI_SMALLICON; ShGetFileInfo( PChar( sFileName ), 0, SHFileInfo, SizeOf( TSHFileInfo ), vFlag ); Result := SHFileInfo.hIcon; end; 해당 파일의 full path를 포함한 이름을 ..

웹게시판처럼 페이지를 나눠서 보여줘야 할 경우가 상당히 많았는데, 이번 기회에 웹페이지 나누는 것과 같은 기능을 하는 컴포넌트를 만들었다. 이름하여 TMarsPagePanel ! 기존의 TPanel 을 상속받아서 그 위에 TMarsImageButton 을 얹어서 만들었다. 아직 보완해야 할 부분이 많지만 혼자 쓰기에는 적당한 것 같다.

한동안 "메세지를 입력하세요" 라는 부분이 TMemo 로 되어있어서 배경 그림은 무시한채 새하얀 바탕으로 생뚱맞게 방치되어왔는데, 드디어 오늘! 이리저리 투명한 메모를 구현해보기 위해서 이리저리 자료 찾아보고 그러던 도중 만들어버렸다. 컴포넌트 명칭은 TMarsTransparentMemo ㅋㅋㅋㅋ 내가 새로 만든 컴포넌트에는 모두 Mars를 붙이고 있다. 하나하나 만들어가는 재미가 솔솔하네,

원문 : http://imranontech.com/2007/01/24/using-fizzbuzz-to-find-developers-who-grok-coding/ 실제로 이런 경우는 많죠. 경력이 많은 개발자라고 스스로 생각하는 사람들 중에도 아주 작은 문제조차 해결하지 못하는 사람은 많습니다. 대부분 채용과정에서 걸러져야 하지만 작은 규모의 회사에서는(아니 큰 회사라 하더라도) 기술면접이 제대로 이뤄지고 있지 못하죠. 주위의 동료에게 당장 다음과 같은 문제를 풀어보도록 해보면 어떨까요? 원문에서는 대부분의 좋은 프로그래머는 1,2분 사이에 코드를 작성해 낸다고 합니다. FizzBuzz Question 1에서 100까지 출력하는 프로그램을 작성합니다. 단, 3의 배수일 경우 "Fizz"를 출력하고 5의 배..

1. 문자열 암호화 2. 문자열 복호화 3. 파일 암호화 3-1. 평문 3-2. 암호화된 파일 4. 파일 복호화 4-1. 복호화된 파일

스레드 초기화 새 스레드 클래스의 초기화 코드를 작성하려면 Create 메소드를 오버라이드해야 합니 다. 스레드 클래스의 선언에 새 생성자를 추가하고 선언을 구현하는 초기화 코드를 작성 합니다. 여기서 스레드의 기본 우선 순위를 할당하고 스레드가 실행 종료될 때 자동으로 해제되어야 할지 여부를 나타낼 수 있습니다. 기본 우선 순위 할당 우선 순위는 운영 체제가 애플리케이션의 모든 스레드 중에서 CPU 시간의 일정을 정할 때 스레드가 갖는 기본 설정 수를 나타냅니다. 시간적으로 중요한 작업을 처리할 때에는 높은 우선 순위의 스레드를 사용하고 다른 작업을 수행할 때에는 낮은 우선 순위의 스레 드를 사용합니다. 스레드 객체의 우선 순위를 나타내려면 Priority 속성을 설정하십시 오. 스레드 우선 순위 tp..

delphi에서 thread를 사용하기 위해서는 tthread를 상속 받아서 만들거나 CreateThread(API)를 이용하는 방법이다. thread를 만드는데 있어서 꼭 알아야 할 function(?)들... 최소한 thread를 상속받아서 뭔가를 만들려면 이거는 알아야 한다. procedure Execute; virtual; abstract; tthread를 상속받으면 execute procedure를 구현해야 한다. 실행 하고 싶은 내용을 기술하는 곳이다. project영역에 선언한다. TThreadMethod = procedure of object; procedure Synchronize(Method: TThreadMethod); overload; thread를 사용하면서 세마포어나 뮤텍스를 사..

[TMemo Component] 현재 라인번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄이 몇 번째 줄인지를 리턴한다. Label1.Caption := IntToStr(GetCurrLine(Memo1)); function GetCurrLine(Memo : TMemo) : integer; begin Result := Memo.Perform(EM_LINEFROMCHAR, Memo.SelStart, 0); end; [TMemo Component] 현재 컬럼번호 알아내기 메모에서 현재 Caret이 위치하고 있는 줄에서 몇 번째 컬럼인지를 리턴한다. Label1.Caption := IntToStr(GetCurrCul(Memo1)); function GetCurrCul(Memo : TMemo)) : in..