본문 바로가기

코드 조각31

프로그램 내에서 특정 모듈(dll 또는 bpl)의 경로를 알고 싶으면? //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { String sModule="vcl140.bpl"; HINSTANCE__ * hModlule=GetModuleHandleW(sModule.c_str()); if(hModlule) { wchar_t buf[256]; GetModuleFileNameW(hModlule,buf,255); ShowMessage(String(buf)); } } //--------------------------------------------------------------------------- 2012. 3. 30.
ShellExecute() : 파일 실행하기 확장자에 따라 파일 실행하기 HINSTANCE ShellExecute( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ); #include "shellapi.h" //프로그램 실행 ShellExecute(NULL, "open", "C:/Program Files/NATEON/BIN/NATEON.exe", NULL, NULL, NULL); //웹사이트 접속 ShellExecute(NULL, "open", "http://www.ict-lab.com", NULL, NULL, SW_SHOWNORMAL ); //메일 보내기 ShellExecute(NULL, "open", "ma.. 2012. 3. 29.
GetFileVersionInfo : 파일 버전 가져오기 //--------------------------------------------------------------------------- // > // {"CompanyName", "FileDescription", "FileVersion", "InternalName" // , "LegalCopyright", "LegalTradeMarks", "OriginalFileName", "ProductName", "ProductVersion", "Comments"}; //---------------------------------------------------------------------------- // ---------------------------------------------------------.. 2012. 3. 21.
TStringGrid 내용을 CSV 파일로 저장하는 함수 //--------------------------------------------------------------------------- /* @brief : StringGrid 콤포넌트의 내용을CSV 포맷으로 파일에 저장 @remarks : DB 프로그램에서 화면에 있는 콤포넌트 저장할때 공통으로 사용하기 위한 함수 @return : 저장 성공시 true, 실패시 false @date : 2012.3.20.화 @author : 이성열 @todo : */ bool XdbfSaveStrGridToCSV( TStringGrid *pGrid , String sFileName , bool bOverwrite ) { // 파일 존재 확인 if(FileExists(sFileName)==true) { if( bOv.. 2012. 3. 21.
TPanel에는 Canvas가 왜 없을까? 프로그램 하다보면 TPanel에 무엇을 그리고 싶은 경우가 있는데요 TPanel에는 Canvas가 안보입니다. 사실 없는것이 아니라 protected로 감쳐줘 있을뿐입니다. [TPanel에서 Canvas를 쓰려면 ] 다음과 같이 만들어서 쓰시면 됩니다. //--------------------------------------------------------------------------- // Protected로 감춰져 있는 Canvas를 public으로 변경 class TOpenPanel: public TPanel { public: __property Canvas; }; //-----------------------------------------------------------------------.. 2012. 3. 20.