Time <- 1000 : 1초
 
procedure delay(Time: Integer);
var
  PastCount: LongInt;
begin
  PastCount := GetTickCount;
  repeat
    Application.ProcessMessages;
  until ((GetTickCount-PastCount) >= LongInt(Time));
end;
 

 

저작자표시 비영리

'공부방 > Delphi' 카테고리의 다른 글

[델파이] 인터넷 창 띄우기  (0) 2018.04.06
[델파이] array 관련  (0) 2018.04.06
[델파이] SendMessage - String 으로 넘기기  (0) 2018.04.06
[델파이] EncodeBase64  (0) 2018.04.06
[델파이] 예외처리 구분 경우 (try/except/finally)  (0) 2017.06.08
- 호출부
SendMessage(호출되는 handle,  WM_SampleCall, AHandle.Handle, DWORD(PChar(ADescription)));

- 수신부
(선언)
procedure _SampleCall(var Message: TMessage); message WM_SampleCall;
(구현)
procedure TfrmMain.SampleCall(var Message: TMessage);
var
  sMsg : PChar;
begin
  sMsg := PChar(Message.lParam);
  Message.Result := 1;
  ShowWait(nil, sMsg);
end;


저작자표시 비영리

'공부방 > Delphi' 카테고리의 다른 글

[델파이] array 관련  (0) 2018.04.06
[델파이] delay  (0) 2018.04.06
[델파이] EncodeBase64  (0) 2018.04.06
[델파이] 예외처리 구분 경우 (try/except/finally)  (0) 2017.06.08
[델파이] 퀀텀그리드 짝수열 색상변경하기  (1) 2016.03.10
uses Soap.EncdDecd;
(bpl : soaprtl240.bpl)

function EncodeFile(const FileName: string): AnsiString;
var
  msStream: TMemoryStream;
begin
  msStream := TMemoryStream.Create;
  try
    msStream.LoadFromFile(Filename);
    Result := EncodeBase64(msStream.Memory, msStream.Size);
  finally
    FreeAndNil(msStream);
  end;
end;


저작자표시 비영리

'공부방 > Delphi' 카테고리의 다른 글

[델파이] delay  (0) 2018.04.06
[델파이] SendMessage - String 으로 넘기기  (0) 2018.04.06
[델파이] 예외처리 구분 경우 (try/except/finally)  (0) 2017.06.08
[델파이] 퀀텀그리드 짝수열 색상변경하기  (1) 2016.03.10
[델파이] Form 생성에 대한 정리  (0) 2015.12.14

+ Recent posts

티스토리툴바