Q&A

  • ShellExecute가 정의되지 않았다는 메시지...
전 피씨에서 휴대폰으로 문자메세지를 보내는 프로그램을 함 짜보는중입니다..



근데 shellExecute에서 정의가 안됐다구 하네여...정의를 어디다 해야할지 모르겠습니다



고수님들 부탁합니다...



procedure TForm1.Button1Click(Sender: TObject);

var SndString : String;

Callnum, reqnum, reqname, text : string;



begin

callnum := '0112223333';

reqnum := '0114445555';

reqname := '거니';

text := '받니';



SndString := 'http://www3.joins.co.kr/messenger/bin/Telsend.dll?input&' +

'+callnum='+callnum+'&reqnum='+reqnum+'&reqname='+reqname+'&text='+text;



ShellExecute(GetDesktopWindow, 'open', PChar(SndString),nil,nil,SW_SHOWNORMAL);

end;





1  COMMENTS
  • Profile
    최석기 2000.09.02 11:08
    안영하세요.

    델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다..



    ShellExecute는 ShellApi 유닛에 정의 되어 잇습니다.

    (* WinApi라고 오기하셨었는데, 김경식님의 조언으로 ShellApi로 수정했습니다.

    제가 확인해보니 ShellApi가 맞군요 - 운영자 *)



    uses구에 추가해 주세요..



    거니 wrote:

    > 전 피씨에서 휴대폰으로 문자메세지를 보내는 프로그램을 함 짜보는중입니다..

    >

    > 근데 shellExecute에서 정의가 안됐다구 하네여...정의를 어디다 해야할지 모르겠습니다

    >

    > 고수님들 부탁합니다...

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > var SndString : String;

    > Callnum, reqnum, reqname, text : string;

    >

    > begin

    > callnum := '0112223333';

    > reqnum := '0114445555';

    > reqname := '거니';

    > text := '받니';

    >

    > SndString := 'http://www3.joins.co.kr/messenger/bin/Telsend.dll?input&' +

    > '+callnum='+callnum+'&reqnum='+reqnum+'&reqname='+reqname+'&text='+text;

    >

    > ShellExecute(GetDesktopWindow, 'open', PChar(SndString),nil,nil,SW_SHOWNORMAL);

    > end;

    >

    >