Q&A

  • 에러 발생.. (T________T)
procedure TForm1.Button1Click(Sender: TObject);

begin

if URLDownloadToFile(nil, 'http://myhome.shinbiro.com/~ryuhyun/readme.txt',

'c:areadme.txt', 0, nil) <> 0 then

WinExec('C:anotepad.exe c:areadme.txt', SW_SHOW);

end;



end.



웹에서 파일을 다운로드 해서 응용프로그램이 그 파일을 열어 주는

코드랍시고 작성을 했는데 위의 코드가 작동이 안됩니다.

혹시 아시는 고수님 계시면 한 수 가르쳐 주세요.



아고, 나는 왜 이리 머리가 나쁠까...

1  COMMENTS
  • Profile
    tomhea 2001.03.27 18:59
    WinExec('C:anotepad.exe c:areadme.txt', SW_SHOW);

    notepad.exe는 윈도우 디렉토리에 있습니다.

    윈도우 디렉토리는 Path가 걸려있으니

    WinExec('notepad.exe c:areadme.txt', SW_SHOW); 이렇게만 하셔도

    잘 동작할듯 하네요..





    유해현 wrote:

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > if URLDownloadToFile(nil, 'http://myhome.shinbiro.com/~ryuhyun/readme.txt',

    > 'c:areadme.txt', 0, nil) <> 0 then

    > WinExec('C:anotepad.exe c:areadme.txt', SW_SHOW);

    > end;

    >

    > end.

    >

    > 웹에서 파일을 다운로드 해서 응용프로그램이 그 파일을 열어 주는

    > 코드랍시고 작성을 했는데 위의 코드가 작동이 안됩니다.

    > 혹시 아시는 고수님 계시면 한 수 가르쳐 주세요.

    >

    > 아고, 나는 왜 이리 머리가 나쁠까...