코드 조각31 실행파일 파라메터 가져오는 함수 ParamStr(0) : 실행파일 패스 ParamStr(1) : 첫번째 파라메타 2012. 3. 15. FindFile 샘플 void __fastcall GetNormalFolderList(String sDir,TStringList *sLst) { WIN32_FIND_DATA fdFiles; HANDLE hdHandle; hdHandle = FindFirstFile(((AnsiString)sDir + "\\*").c_str(), &fdFiles); if(hdHandle) { do { String sTmpFile=fdFiles.cFileName; if(sTmpFile!="." && sTmpFile!="..") { if(fdFiles.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) { String sJobFile=sTmpFile+"\\Device.IDF"; if(!FileExists(sJobFile.. 2012. 3. 15. 폴더 선택 다이얼로그 폴더 선택 다이얼로그 #include // E_XDataDir 는 XEdit로 마지막 폴더 저장하기위함 void __fastcall TF_Main::B_XDataDirClick(TObject *Sender) { String Dir = E_XDataDir->Text; SelectDirectory("Select a directory", "", Dir); if (Dir != "") E_XDataDir->Text = Dir; } 2012. 3. 15. GetFileSize unsigned int __fastcall GetFileSize(String sFilename) { TFileStream *sFile; unsigned int Result=0; sFile = NULL; try { sFile = new TFileStream(sFilename, fmOpenRead | fmShareDenyNone); Result = sFile->Size; } __finally { if( sFile ) delete sFile; } return Result; } 2012. 3. 15. 타이틀바와 시스템 메뉴 동작 만들기 1. Designtime에 * Form의 WindowState를 wsMaximized 로 설정 * Form의 BorderStyle을 bsSizeable 로 설정 2. Form의 OnCreate이벤트에 다음과 같이 코딩 void __fastcall TForm1::FormCreate(TObject *Sender) { SetWindowLong(Handle,GWL_STYLE,GetWindowLongA(Handle,GWL_STYLE)&~WS_CAPTION); this->WindowState=wsNormal; } 3. 타이틀바 대신할 control 타이틀바를 대신할 Image가 있다면 다음과 같이 코딩.. 3.1 OnMouseMove 이벤트에 다음가 같이 코딩 //----------------------------.. 2012. 3. 15. 이전 1 ··· 3 4 5 6 7 다음
