728x90

일마레 36

델파이/delphi] TMSNPopup 사용하기

안녕하세요, 일마레입니다. TMSNPopup 관련하여 안내해 드리려고 하는데요.MSN 알림창을 쉽게 구현할 수 있게 해주는 무료 컴포넌트입니다. ↓ ↓ ↓ 다운로드 사이트 ↓ ↓ ↓ https://torry.net/components/forms/appearence/tmsnpopup Forms > TMSNPopUp. Torry's Delphi Pages" data-og-description="In category Components > Forms > Appearence Description The TMsnPopUp component is created to mimic the behavior of the popup windows that can be seen in MSN/Windows Messenger fr..

델파이 2024.07.22

추억의 음악] 김민종 - 귀천도애

안녕하세요, 일마레입니다. 오늘 소개해드릴 노래는 "김민종 - 귀천도애"입니다.이 노래는 많이들 알고 계시겠지만, 귀천도의 OST로앨범 발매 후 큰 사랑을 받았지만 표절 시비로가수님이 잠정 은퇴를 하시는 등 논란이 많았던 곡이었죠. 이 논란은 당시 한국 음악 산업의 저작권 인식과 관련된 문제를다시금 상기시키는 계기가 되었으며, 이 후 많은 아티스트들이창작의 정직성과 독창성을 더욱 중요하게 여기게 되는 데 기여했다고 합니다. 그럼 이제 음악을 들어보도록 하실까요?

음악스토리 2024.07.19

델파이/delphi] 프로세스 종료하기

안녕하세요, 일마레입니다. 오늘은 PC 프로세스 목록에 있는 프로그램을 종료하는 방법을 알려드리려고 해요. 프로그램의 프로세스 아이디를 얻어와서 종료하는 방법인데요. 아래 소스를 알려 드리도록 하겠습니다.function KillTask(ExeFileName: string): Integer;const  PROCESS_TERMINATE = $0001;var  ContinueLoop: BOOL;  FSnapshotHandle: THandle;  FProcessEntry32: TProcessEntry32;beginResult := 0;  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  FProcessEntry32.dwSize := Siz..

델파이 2024.07.19

추억의 음악] 화이트(WHITE) - 7년간의 사랑

안녕하세요, 일마레입니다. 오늘 소개해 드릴 노래는 "화이트(WHITE)- 7년간의 사랑"입니다.90년대 대표 발라드라고 해도 손색 없을 만큼의 인기를 누렸던 곡인데요. 이 후 김현정, 규현, 아이유가 리메이크를 하면서 더 많이 사랑받았죠. 유영석이 포장마차에서 실제 사연을 듣고 만든 곡이라고 하는데같이 한 번 들어보시죠!

음악스토리 2024.07.18

델파이/delphi] 전화번호에 바 넣기

안녕하세요, 일마레입니다. 오늘은 전화번호에 바 넣는 함수를 알려드리려고 하는데요. 프로그램을 개발하고 운영하다 보면 고객사에서전화번호를 입력하는 경우가 많이 생기죠! "숫자만 입력하고 바는 자동으로 넣어주면 안되는지...?"라는 문의를 많이도 받아봤어요. 그래서 입력하면서 자동으로 바를 입력해주는함수를 만들어 보았습니다.function PrintPhone(const asSource:String):String;var  lsTmpStr:String;  liLength:Integer;begin  try    lsTmpStr := asSource;    lsTmpStr := StringReplace(lsTmpStr, '-', '', [rfReplaceAll]);    liLength := length(lsTm..

델파이 2024.07.18

델파이/delphi ] 프로그램 Log 삭제 방법

안녕하세요, 일마레입니다. 얼마전에 프로그램 LOG를 생성하는 방법을 안내해 드렸는요. 계속 사용하다 보면 LOG도 무시 못할 정도로 쌓이게되죠.그래서 오늘은 삭제 하는 방법을 알려드리려고 해요. 아래 안내해 드리는 내용 확인하시고, 좋은 하루 보내세요!function LogFileDel : Boolean;var    DirInfo: TSearchRec;    r : Integer;    ts : TStringList;begin    try        r := FindFirst(ExtractFilePath(Application.ExeName)+'\log\*.*', FaAnyfile, DirInfo);        while r = 0 do  begin           if ((DirInfo.Attr ..

델파이 2024.07.17

[ 예약 재공지] 체험형 팝업스토어 "포켓몬 몬스터볼 팩토리"

안녕하세요 일마레입니다. 평일에는 회사에서 개발자로 일하고 있지만 주말에는 가족과 시간을 보내는 평범한 아빠입니다. 주말에 아이들과 뭐할지 매일매일이 고민이지 않으신가요? ㅎㅎ 서울에서 체험형 팝업스토어가 열린다는 소식이 있어 공유해 드리려고 합니다!"포켓몬 몬스터볼 팩토리"몬스터볼 팩토리란 뭐일까요?공식 스토리에 게시된 4컷 만화를 한번 보시죠!  몬스터볼 팩토리는 더위에 지쳐 시원한 바람을 찾던고라파덕에 의해 발견되었는데요. 이번 팝업스토어에서 무슨 이유인지 팩토리가 가동되지 않아 볼 공급이 어려워진팩토리의 주요 시설을 살펴보고 원인 찾아내는 시간을 갖는 것 같습니다."몬스터볼 팩토리는 언제 갈 수 있나요?"※ 일정 ※ ● 2024년 8월 3일 (토요일) - 2024년 8월 4일 (일요일)● 시간: ..

일마레스토리 2024.07.16

델파이/Delphi] PING 테스트

안녕하세요, 일마레입니다. 일을 하다 보면 거래처에서 "작업이 안되는거 같아요","느려진거 같은데 확인 좀 해주세요" 등등의 연락을 받는다. 기능 혹은 물리적인 문제가 아니라면 대부분 네트워크 환경의 문제인데... 현장의 네트워크 상태를 일일히 확인하기에는 어려움이 있기에PING 테스트통해 네트워크 연결 유무를 파악하고 로컬모드로 작업을 하고있다. 자 그럼 Ping 테스트 하는 방법을 알아봅시다.function GetIntChk(addr: string): Boolean;   var   SZSQL : string;    IdicmpClient1 : TIdIcmpClient;  begin     IdicmpClient1:= TIdIcmpClient.Create(Nil);     try{ addr은 각 통신사..

델파이 2024.07.15