본문 바로가기

분류 전체보기590

폴더 내용 삭제하기 홍환민씨가 올려논 팁으로 답을 대신합니다. 참고적으로 ShellAPI를 use 절에 포함시키세요. 사용해보니 잘되니다. 더군다나 휴지통에서도 없앨수 있습니다. //----------------------------------------------------------------- // 디렉토리 및 파일을 지운다. // 하위 디렉토리와 모든 파일도 함께 지워진다. // 인자 설명 // - DirName : 지울 디렉토리명 // - UseRecycleBin : 휴지통을 사용할 것인가 여부 (아니면 영구삭제) // 리턴값 설명 // - 성공 여부 //----------------------------------------------------------------- function MinDeleteFile(c.. 2008. 8. 13.
00:00:00 형태로 나타내기 lblRemainTime.caption := Format('%.2d : %.2d : %.2d', [DSec div 3600, (DSec div 60) mod 60, DSec mod 60]); 2008. 8. 13.
24bit bmp 이미지 만들기 //--------------------------------------------------------------------- // Write your own 24 Bit BMP // (C) K.O. Thaha Hussain MCA, 2003 Sept // I used Hexadecimal Numbers just for Style // Hex editors make use of that system. // (Example $28 in Hex is Equal to 40 in decimal system. You can make use // either hex or Decimal system // --------------------------------------------------------------.. 2008. 8. 13.
grid cell 의 커서 변경하기 procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var _Row,_Col : Integer; begin // 현재 마우스가 위치한 Cell의 Row, Column을 알아낸다. StringGrid1.MouseToCell(X,Y,_Col, _Row); if _Col in [1,3,5] then begin StringGrid1.Cursor := crHandPoint; // Focus 이동 StringGrid1.Row := _Row; StringGrid1.Col := _Col; end else begin StringGrid1.Cursor := crDefault; end; end; 2008. 8. 13.

티스토리툴바