ÀÍ¸í ¾²·¹µå¸¦ »ç¿ëÇØ º¸½Ê½Ã¿À...
»ç¿ëÇϱⰡ ¾ÆÁÖ ½±½À´Ï´Ù...
(µ¨ÆÄÀÌ ¹öÀü Á¤º¸°¡ ¾ø¾î¼.. ÀÍ¸í¾²·¹µå¸¦ Áö¿øÇÏ´Â µ¨ÆÄÀÌ·Î °£ÁÖÇÏ°í ¼³¸íÇÕ´Ï´Ù.)
// ¸ÞÀÎ ÇÁ·Î±×·¥ Á¾·á ½Ã
procedure TForm1F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ÆÄÀÏÁ¸Àç¿©ºÎ then
doFileWork; // ÆÄÀÏ Á¸Àç ½Ã ÆÄÀÏ°ü·Ã ÀÛ¾÷ ¼öÇà...
end;
// ¸ÞÀÎ ÇÁ·Î±×·¥Àº Á¾·áµÇ°í ÀÌ ¾²·¹µå´Â º°µµ·Î ½ÇÇàµÊ.
// ¾²·¹µå ³» ÀÛ¾÷ÀÌ ³¡³ª¸é ¾²·¹µå´Â ÀÚµ¿ Á¾·á.
procedure TForm1.doFileWork;
begin
TThread.CreateAnonymousThread(
procedure
begin
// ¿©±â¿¡¼ ÆÄÀÏ °ü·Ã ÀÛ¾÷À» ¼öÇà
// ÀÛ¾÷ÀÌ ³¡³ª¸é ¾²·¹µå ÀÚµ¿ Á¾·á...
end).Start;
end;
ÀÍ¸í¾²·¹µå Á¤¸» ÆíÇÕ´Ï´Ù.... 2019-04-12 ¿ÀÈÄ 6:40:21
|