태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

Procedure SleepProc(milisecond : DWORD);
var
maxloop : Integer;
iindex : integer;

begin
maxloop := (milisecond div 50)+(milisecond mod 50);
for iindex := 1 to maxloop do begin
if Application.Terminated then
begin
Break;
Exit;
Application.Terminate;
end;
Sleep(50);
Application.ProcessMessages;
end;
end;


사용예 :   SleepProc(50);

'Blog Life > Gentlecat's Job' 카테고리의 다른 글

샘플 사이트 정리하기  (0) 2008.11.21
다시 인터넷 황금기가 찾아올까?  (0) 2008.11.19
Delphi7 퀵리포트 설치  (0) 2008.11.19
실행파일 실행시 파라미터값 전달해주기  (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
edit 숫자만 입력받기  (0) 2008.11.19
TWebBrowser 로드 완료 체크  (0) 2008.11.19

+ Recent posts