전 피씨에서 휴대폰으로 문자메세지를 보내는 프로그램을 함 짜보는중입니다..
근데 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;
델파이세상(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;
>
>