이재용 wrote:

> 안녕하세요... 날씨가 무지하게 덥네요...

>

> 자동업데이트 관련 프로그램을 만들고 싶습니다...

>

> 어떻게 하는 방법이라두 좀 알려주세요..

> 물론 소스와..자료를 주시면 더욱 감사하구요

>

> 만들고 싶긴한데..어찌 시작을 해야 하는지 부터 막막 합니다..

>

> 부탁드려요 고수님들





도움이 되실런지....

로그인시에 서버에 있는 프로그램이 현 버젼 보다 나중보전이면(제작일이...)

다운 받습니다...



procedure Tfrm_login.FormCreate(Sender: TObject);

var CopyFiles : TSHFileOpStruct;

begin

if not directoryexists('c:project') then

mkdir('c:project');

setcurrentdir('c:project');



with copyfiles do

begin

wnd := 0;

wfunc := fo_copy;

pfrom := ('main_SERVERprojectstart.exe');

pto := ('c:project');

fflags := fof_simpleprogress;

end;

if fileexists('c:projectstart.exe') then

begin

if fileage('c:projectstart.exe') <>

Fileage('main_SERVERproject') then

shfileoperation(copyfiles)

end

else

shfileoperation(copyfiles);



str2 := 'c:projectstart.exe';

WinExec(strpcopy(str1, str2), SW_SHOW);

close;

end;





나머지는 연구해 보세여

이 로직은 로그인하는 폼에서 사용 된 것입니다