Q&A
function TitleToWnd( TitleText: String ): HWND;
var
i: Integer;
C: array[0..255] of Char;
begin
Result := 0;
for i:= 0 to 32767 do
begin
GetWindowText( i, C, SizeOf( C ) );
if StrPas( C ) = TitleText then
begin
Result := i;
Break;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Path : string;
MsgBtn : HWND;
begin
Path := ExtractFilePath(Application.ExeName);
WinExec(........................)
MsgBtn := TiTleToWnd('MsgButton');
SendMessage(MsgBtn, WM_LBUTTONDOWN, 0, 0);
SendMessage(MsgBtn, WM_LBUTTONUP, 0, 0);
end;
저는 않되는데..이상타.....--;
- 그 부분에 추가한 소스입니다..
function TitleToWnd( TitleText: String ): HWND;
var
i: Integer;
C: array[0..255] of Char;
begin
Result := 0;
for i:= 0 to 32767 do
begin
GetWindowText( i, C, SizeOf( C ) );
if StrPas( C ) = TitleText then
begin
Result := i;
Break;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Path : string;
MsgBtn : HWND;
begin
Path := ExtractFilePath(Application.ExeName);
WinExec(........................)
MsgBtn := TiTleToWnd('MsgButton');
SendMessage(MsgBtn, WM_LBUTTONDOWN, 0, 0);
SendMessage(MsgBtn, WM_LBUTTONUP, 0, 0);
end;
저는 않되는데..이상타.....--;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 공성환
- •
- 2000.05.16 03:40
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.16 04:23안녕하세요. 최용일입니다. 에디트컨트롤의 핸들을 찾아서 다음과 같이 WM_SETTEXT메세지를 보내면 됩니... -
공성환•2000.05.16 04:28잘되네요... 나머지는 지가 해결할수 있을것 같습니다... 즐거운 시간 되세요...
-
- 델사모초보
- •
- 2000.05.16 03:35
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.16 04:17안녕하세요. 최용일입니다. 그냥 INI파일 하나만 작성하시면 됩니다. 노트패드같은 곳에서... 이름은...
-
어린왕자•2000.05.16 03:46고수님..저두 갈켜줘요.. 오토런..저두 갈켜줘요..
-
- 류응철
- •
- 2000.05.16 03:27
- 7 COMMENTS
- /
- 0 LIKES
-
류종택•2000.05.16 05:23뿌려주기 작업에는 별다른 퍼포먼스 차이는 없습니다.. 코딩만 복잡할 뿐.. 다만 입력 및 수정 작업에서....
-
어린왕자•2000.05.16 03:29영원한 델초보 어린왕자인데요.. DBEdit가 뭐예요? 유닛인가요? 잘몰라서 글거든요.. 갈켜줘요.. 저두...
-
류응철•2000.05.16 18:34어린왕자님께서 모르실거란 생각을 하진 않지만.. 혹 모르시는 분이 있을까봐... dbGrid처럼 쓰는 edit...
-
어린왕자•2000.05.16 18:54류응철 wrote: > 어린왕자님께서 모르실거란 생각을 하진 않지만.. 혹 모르시는 분이 있을까봐... > > ...
-
류응철•2000.05.22 18:20어린왕자 wrote: > 류응철 wrote: > > 어린왕자님께서 모르실거란 생각을 하진 않지만.. 혹 모르시는 분...
-
류응철•2000.05.22 18:20어린왕자 wrote: > 류응철 wrote: > > 어린왕자님께서 모르실거란 생각을 하진 않지만.. 혹 모르시는 분...
-
류응철•2000.05.22 18:19어린왕자 wrote: > 류응철 wrote: > > 어린왕자님께서 모르실거란 생각을 하진 않지만.. 혹 모르시는 분...
-
- 왕초보
- •
- 2000.05.16 03:09
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.05.16 03:27왕초보 wrote: > 스트링그리드를 이용하고 난 후 스트링그리드의 내용을 없애려고(초기화) 합니다. > 전...
-
- 안희준
- 2000.05.16 02:58
- 0 COMMENTS
- /
- 0 LIKES
-
- IQ0099
- •
- 2000.05.16 02:29
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.05.16 03:24음냐..초보에서 빠져나올수 없는 어린왕자입니다.. ADO컴포넌트를 써서..디비가 mdb인경우일 경우는 가능....
-
- 김길남
- •
- 2000.05.16 02:07
- 1 COMMENTS
- /
- 0 LIKES
-
jinnon•2000.05.17 08:58김길남 wrote: > 서버의 MSSQL 7.0 에 스토어드 프로시저를 만들어서 가공된 값을 리턴받아 클라이언트에...
-
- 어린왕자
- •
- 2000.05.16 01:59
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.16 02:19안녕하세요. 최용일입니다. DLGC_WANTALLKEYS를 DLGC_WANTTAB으로 바꾸세요... > Form1.WindowProc...
-
어린왕자•2000.05.16 02:27용일님..그래두..Tab키를 눌러두..Keydown이벤트가 발생하지 않는데요.. 최용일 wrote: > 안녕하세요. 최...
-
최용일•2000.05.16 03:39안녕하세요. 최용일입니다. 헐~ 제가 생각없이 답변을 했군요. 이게 폼이라는 것을 깜밖했습니다. 폼에...
-
- 박영빈
- •
- 2000.05.16 01:57
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.16 02:26안녕하세요. 최용일입니다. 소스가 있다면 델파이 5에서 바뀐 부분이 있기때문에 에러가 난것일겁니다. ...
-
- 김성일
- •
- 2000.05.16 01:47
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•2000.05.16 02:57버젼에 따라 틀린데 최근 것이라면 yyyy-mm-dd형으로 데이타베이스에 잡혀 있을 것입니다. 델파이에서 ...
-
- 안희준
- •
- 2000.05.16 00:36
- 1 COMMENTS
- /
- 0 LIKES
function TitleToWnd( TitleText: String ): HWND; var i: Integer; C: array[0..255] of Char; begin Result := 0; for i:= 0 to 32767 do begin GetWindowText( i, C, SizeOf( C ) ); if StrPas( C ) = TitleText then begin Result := ...-
최용일•2000.05.16 01:25안녕하세요. 최용일입니다. 타이머가 아니라 버튼에서 구현을 하셨네요... 이 SendMessage라는 함수가 1...
-
- 정민석(왕초보)
- •
- 2000.05.16 00:34
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.16 11:06정민석(왕초보) wrote: > 제가 스크린 세이버 컴포넌트를 만들었는데, 다른 문제가 아니고 제가 만든 컴포...
-
- 초보
- •
- 2000.05.16 00:17
- 3 COMMENTS
- /
- 0 LIKES
-
황선희•2000.05.16 01:00초보 wrote: > DBGRID를 사용하여 프로그램을 만드는데 이상하게도 아무 데이타가 들어 가 있지 않는 칼럼...
-
초보•2000.05.16 01:40황선희 wrote: > 초보 wrote: > > DBGRID를 사용하여 프로그램을 만드는데 이상하게도 아무 데이타가 들...
-
어린왕자•2000.05.16 03:35안녕하세요..영원한 델초보 어린왕자입니다.. 전 옛날에..(불과 1달전..T.T)..했었는데.. 디비그리드의...
-
- 안희준
- •
- 2000.05.15 23:52
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.16 00:28안녕하세요. 최용일입니다. 소스를 올려보세요. 저는 잘 됩니다. ^^ 안희준 wrote: > 버튼핸들은...
-
- 델파이 촘
- •
- 2000.05.15 23:50
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.05.16 03:39안녕하세요..어린왕자여요..영원한 델초보.. 디비 종류가 어떻게 되는데요? 전 로칼디비밖에 안써봐서..잘...
-
델파이촘•2000.05.17 02:18제가 사용하는 db는 mysql입니다. mysql은 db를 새로이 만들면 하나의 폴더로 생성되는데 이 폴더를 삭...
-
- 타락천사
- •
- 2000.05.15 23:37
- 4 COMMENTS
- /
- 0 LIKES
-
김일영•2000.05.16 05:44FormHandle() => FromHandle() 말씀이시죠? 안타깝게도 없습니다... 제가 이것과 관계된 일로 불미스런 사...
-
최용일•2000.05.16 00:29안녕하세요. 최용일입니다. GetClassName이라는 API함수를 써보세요. ^^ 항상 즐코하세요. 타락천...
-
최용일•2000.05.16 01:29델파이의 클래스를 얻으려면 GetClass함수를 사용하세요. 클래스 타입이 먼저 등록이 되어 있어야 합니...
-
타락천사•2000.05.16 18:33안녕하세여.. 타락임다.. ^^ 제가 답변 올라온걸 모르고 다시 멜 보냈나 보네여.. ^^;;; 바쁠텐데......
-
- 델파이 촘
- 2000.05.15 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 사공엽
- 2000.05.15 23:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 배움돌이
- •
- 2000.05.15 22:53
- 3 COMMENTS
- /
- 0 LIKES
-
하늘맥•2000.05.15 23:19델파이 배움돌이 wrote: > 스트링그리드의 문자열을 어떻게 가운데로 맞추나요? 위의 '델파이 팁모아' 에...
-
안희준•2000.05.15 23:13델파이 배움돌이 wrote: > 스트링그리드의 문자열을 어떻게 가운데로 맞추나요? 고정셀을 가운데 정렬...
-
초보자•2000.05.17 18:22안희준 wrote: > 델파이 배움돌이 wrote: > > 스트링그리드의 문자열을 어떻게 가운데로 맞추나요? > ...
-
- 안희준
- •
- 2000.05.15 22:50
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.15 23:47안녕하세요. 최용일입니다. 소스를 올려보세요. 안된것은 아마도 윈도우를 제대로 못찾아서 일것입니다....
타이머가 아니라 버튼에서 구현을 하셨네요... 이 SendMessage라는 함수가 100% 완전히
믿을 수 있는 함수가 아닙니다. 특히 버튼 클릭처럼 여러개의 메세지를 보내는 경우,
메세지를 보내 는 중간에 트래픽이 있다면 제때에 처리를 못하게 되는 경우도 생깁니
다. 그 때문에타이머를 썼던거구요. 버튼의 클릭이벤트에서 구현을 하실려면 제대로
메세지가 전달 될때까지 계속해서 메세지를 보내야합니다.
procedure TForm1.Button1Click(Sender: TObject);
...
begin
...
MsgBtn := TiTleToWnd('MsgButton');
repeat
SendMessage(MsgBtn, WM_LBUTTONDOWN, 0, 0);
SendMessage(MsgBtn, WM_LBUTTONUP, 0, 0);
until FindWindow('#32770', 'MsgBox') = 0; // 메세지박스가 뜰때까지...
end;
델파이 1.0은 FindWindowEx함수가 없는가 보군요. 루프를 이용해서 윈도우 핸들을
찾는 새로운 방법을 알게 되었습니다. 아래와 같이 코딩하시면 델파이 1.0에서도
윈도우 API함수인 FindWindow, FindWindowEx함수를 사용하실 수 있습니다.
interface
function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PChar): HWND; stdcall;
implementation
function FindWindow; external 'user32.dll' name 'FindWindowA';
function FindWindowEx; external 'user32.dll' name 'FindWindowExA';
end.
^^ 항상 즐코하세요.
안희준 wrote:
>
>
> function TitleToWnd( TitleText: String ): HWND;
> var
> i: Integer;
> C: array[0..255] of Char;
> begin
> Result := 0;
> for i:= 0 to 32767 do
> begin
> GetWindowText( i, C, SizeOf( C ) );
> if StrPas( C ) = TitleText then
> begin
> Result := i;
> Break;
> end;
> end;
> end;
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Path : string;
> MsgBtn : HWND;
> begin
> Path := ExtractFilePath(Application.ExeName);
> WinExec(........................)
>
> MsgBtn := TiTleToWnd('MsgButton');
> SendMessage(MsgBtn, WM_LBUTTONDOWN, 0, 0);
> SendMessage(MsgBtn, WM_LBUTTONUP, 0, 0);
> end;
>
> 저는 않되는데..이상타.....--;
>
>
>