자동업데이트 기능등을 강제로 넣어야 할때 실행파일에 파라미터를 넣어주어야
반드시 업데이트를 거쳐야 할수 있도록 해줄수 있다.
본프로그램
procedure TfrmIndex.FormCreate(Sender: TObject);
var path : string;
begin
Application.Initialize;
if (System.ParamStr(1) <> '/first') then //파라미터 값은 first로 지정해주었다.
begin
ShowMessage('다른 경로로 프로그램을 실행했습니다. 프로그램을 종료합니다.');
Application.Terminate;
end;
Application.Run;
end;
업데이트부
procedure TUpdateForm.ExitProg ;
Var BRoot : String ;
Begin
BRoot := ExtractFileDir(ParamStr(0)) ;
ShellExecute(0, 'open', PChar(BRoot+'\zzz.exe'), '/first', nil, SW_SHOWNORMAL);
// /first 로 파라미터 전달 직접 실행못하게
PostMessage(UpdateForm.Handle , WM_QUIT, 0, 0);
End ;
'오래된 글들 > Gentlecat's Job' 카테고리의 다른 글
파일 확장자 뽑아내기.. (0) | 2008.11.26 |
---|---|
명확한 타겟(주요고객)을 설정하라! (0) | 2008.11.21 |
샘플 사이트 정리하기 (0) | 2008.11.21 |
다시 인터넷 황금기가 찾아올까? (0) | 2008.11.19 |
Delphi7 퀵리포트 설치 (0) | 2008.11.19 |
advstring Grid 체크박스 넣기 (0) | 2008.11.19 |
폼 얼지 않게 sleep 주기 (0) | 2008.11.19 |
파일복사 (1) | 2008.11.19 |
파일삭제 함수 (0) | 2008.11.19 |
grid 첫 데이터 선택하기 (0) | 2008.11.19 |