Application/Delphi Lecture126 GDI+ 이용한 썸네일 만들기2 function setMakeThumbnailWithGDI(strFileFullname, strFilepath : string; intWidth, intHeight: integer): string; var graphics: TGPGraphics; Image : TGPBitmap; //TGPImage; nPosX: Real; nPosY: Real; intXZoom, intYZoom: real; JPEGImage : TJPEGImage; strSaveFilefullname : string; bReturn : TStatus; imgView : TImage; r, br : TRect; w, h, c, rw, rh : Integer; begin try if (strFileFullname '') and (fileE.. 2008. 8. 13. GDI+ 를 이용해서 썸네일 만들기. uses GDIPOBJ, GDIPAPI; const ImageBMPClsid : TGUID = '{557CF400-1A04-11D3-9A73-0000F81EF32E}'; ImageJPEGClsid : TGUID = '{557CF401-1A04-11D3-9A73-0000F81EF32E}'; ImageGIFClsid : TGUID = '{557CF402-1A04-11D3-9A73-0000F81EF32E}'; ImageTIFFClsid : TGUID = '{557CF405-1A04-11D3-9A73-0000F81EF32E}'; ImagePNGClsid : TGUID = '{557CF406-1A04-11D3-9A73-0000F81EF32E}'; function TForm1.setMakeThumbnailWithG.. 2008. 8. 13. 폴더 내용 삭제하기 홍환민씨가 올려논 팁으로 답을 대신합니다. 참고적으로 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. 이전 1 ··· 4 5 6 7 8 9 10 ··· 32 다음