unit를 만들고 메인 프로젝트에서 모달 형식으로 불러들이는 방법은

알고 있는데 현재 쓰고있는 프로젝트에서 다른 응용프로그램 (예를들면 윈도우의 그림판(실행화일)을 불러들이는 방법을 알고 싶습니다.)

여태껏 실행화일을 불러들이는 방법을 한번도 써 본적이 없는지라

어떻게 하면 실행 화일을 불러들일수 있는지 궁금합니다.

꼭 답변을 부탁드립니다.

이방인 wrote:

> 사각형인 이미지를 출력하려 합니다...

> 그냥 출력하는 것이 아니라

> 사각 꼭지를 둥굴게 처리를 하여 출력하려 합니다.

> 여러번 시도를 했지만 잘 안돼네요.

> 그림 자체가 그렇게 생격먹었으면 좋겠는데

> 그렇게 돼면 안돼나봐요...

> 그래서 부득이 하게 이미지를 조작해서 출력을 해야 될것 같네요.

> 꼬지만 어떻게 라운드 처리하면 좋을 텐데...

> 도와 주세요...

> 그럼 부탁드립니다.

>

> 저의 이메일은 Angel1226@netsgo.com 입니다.



위에 대답에서 제가 큰 실수를 했네요....

Timage는 핸들이 없네요....

쩝... 어떻하면 좋나....

저는 일단 임시 방편으로...

TBitBtn 을 사용했습니다...



아래 소스와 같이 하면 둥근 모양의 그림을 가진 버튼이 만들어 집니다..

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;



type

TForm1 = class(TForm)

Button1: TButton;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

R : hRgn;





implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

R := CreateEllipticRgn( 0, 0, 50, 50 ); //크기..

SetWindowRgn(BitBtn1.handle,R,True);



end;



end.

안녕하세요.. 오공이 입니다...

김종성님께서 말씀하기는걸 쓰려면 ShellExecute함수을 써야 할거 같네요.

예을들어 c:aaa.exe을 수행하려면...

다음의 코딩을 소스안에 넣어면 됩니다.



Dir := "C:aaa.exe"

ShellExecute(Handle,'open', PChar(Dir) ,'','',SW_SHOWNORMAL);



자세한 사항은 help 화일을 보거나 여기 Q/A 에서 shellExecute을 치면 많은

질문과 답변이 나와 있읍니다...

도움이 되었나 모르겠네요...

그럼 이만...





김종성 께서 말씀하시기를...

> unit를 만들고 메인 프로젝트에서 모달 형식으로 불러들이는 방법은

> 알고 있는데 현재 쓰고있는 프로젝트에서 다른 응용프로그램 (예를들면 윈도우의 그림판(실행화일)을 불러들이는 방법을 알고 싶습니다.)

> 여태껏 실행화일을 불러들이는 방법을 한번도 써 본적이 없는지라

> 어떻게 하면 실행 화일을 불러들일수 있는지 궁금합니다.

> 꼭 답변을 부탁드립니다.

이방인 wrote:

> 사각형인 이미지를 출력하려 합니다...

> 그냥 출력하는 것이 아니라

> 사각 꼭지를 둥굴게 처리를 하여 출력하려 합니다.

> 여러번 시도를 했지만 잘 안돼네요.

> 그림 자체가 그렇게 생격먹었으면 좋겠는데

> 그렇게 돼면 안돼나봐요...

> 그래서 부득이 하게 이미지를 조작해서 출력을 해야 될것 같네요.

> 꼬지만 어떻게 라운드 처리하면 좋을 텐데...

> 도와 주세요...

> 그럼 부탁드립니다.

>

> 저의 이메일은 Angel1226@netsgo.com 입니다.





음... 테스트는 안해 봤지만...

이렇게 하면 될것입니다...

네모는 싫어라는 강좌를 응용한거기는 한데...



implementation

{$R *.DFM}



var

R : hRgn;



procedure TForm1.FormCreate(Sender: TObject);

begin

R := CreateEllipticRgn( 0, 0, Width, Height );

SetWindowRgn(image1.Handle,R,True);

end;



음냐 한번 해보세요...

나도 테스트 해봐야지 시간나면...



류민철...



ps.

만일 틀리다면 죄송해요...

테스트해보고 틀리면 방법을 다시 생각해 볼꼐요...