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.
웹에서 파일을 다운로드 해서 응용프로그램이 그 파일을 열어 주는
코드랍시고 작성을 했는데 위의 코드가 작동이 안됩니다.
혹시 아시는 고수님 계시면 한 수 가르쳐 주세요.
아고, 나는 왜 이리 머리가 나쁠까...
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.
>
> 웹에서 파일을 다운로드 해서 응용프로그램이 그 파일을 열어 주는
> 코드랍시고 작성을 했는데 위의 코드가 작동이 안됩니다.
> 혹시 아시는 고수님 계시면 한 수 가르쳐 주세요.
>
> 아고, 나는 왜 이리 머리가 나쁠까...