uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var m_path : string;
begin
m_path := ' http://www.naver.com';
ShellExecute(0, 'open', m_path, nil, nil, SW_SHOWNORMAL);
end;
위처럼 했드만 에러가 나네요...
도움말을 보니
HINSTANCE ShellExecute(
HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);
처럼 되어있던데 IpFile 이라 하믄 어떤 형식으로 변수를 선언해야 위에것이 먹힐까요??
|