cbPlus

@Remy Lebeau

Thank You. It's late, but aprreciated.

@TWBoy

Hi. Sorry for the late answer. Maybe you already got it.

I mispelled the key.

HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\22.0\LSP

If this key exists, you made some custom changes. I had. So I deleted it the key beneath the reg-path LSP and it worked again.

Hi. I had 2 years ago the problem to install the C++ Builder CE edition 10.4 after a new install of Windows 10 Pro.
The problem was the license (Free) could not be activated again. Another installation was not possible.
Is this still so or can I install my current license in a new Windows installation?
Thanks.

It was something with LSB path in the registrty or configuration. Changed it. Case closed.

Hallo. Is there a chance to repair the C++ Builder 11.3 Community Edition without de- and reinstall?
I get some ugly messages like:

"No application to execute"
when I start/load a project

"Access violation in module rtl280.bpl" or
"Access violation in module bcbide280.bpl"
first time today

"Dos command not running"

Thank You.

"C:\\Users\\NO_NO\\OneDrive\\TEMP\\*.*"

Without the *.* because I thought this is temprorary only for the btnSearch within FindFirst() FindNext()

Bad assumption I think.

I used and use the debugger. But as I said. I didn't recognize that I have to use the absolute path prior the filenames NewFileName_ and OldFileName_. So I did debug and thought it's ok. I added improtant variables to the watch list.

Simply said, it was a logical thinking error.

Recently I bought this book from Mohmad Yakub "C Programming Patterns - The Art of Coding Logic". 🙂

Thanks for all the answers. Very, very helpful.
I like this forum.

So. I took your advice and tampered my code. It works now.

@silvercoder79
This was the final solution. I didn't recognize that the absolute path
is needed. Thanks.

I know the code's syntax is 'simple' coded. But I need this for now
to better understand what's going on. It is actually only
a learning code.

Any further ideas are welcome.

Anyway. Thank you.

#include <vcl.h>
#pragma hdrstop

#include "uTSearchRec.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2* Form2;
TSearchRec SearchRec;
String WorkingPath_ = "C:\\Users\\NONO\\OneDrive\\TEMP\\";
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm2::btnSearchClick(TObject* Sender)
{
	String FindFirstPath_ = WorkingPath_ + "*.*";
    String Caption1_ = "Current Path:\n" + FindFirstPath_;
    String Caption2_ =
        SearchRec.Name + " is " + IntToStr(SearchRec.Size) + "bytes in size";

    FindFirst(FindFirstPath_, faAnyFile, SearchRec);
    lbOutput->Caption = Caption1_ + "\n" + Caption2_;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::btnAgainClick(TObject* Sender)
{
    if (FindNext(SearchRec) == 0) {
		lbOutput->Caption = SearchRec.Name + " is " + IntToStr(SearchRec.Size) +
                           " bytes in size";
    } else
        FindClose(SearchRec);
}

//---------------------------------------------------------------------------

void __fastcall TForm2::btnRenameClick(TObject* Sender)
{
    String const OldFileName_ = WorkingPath_ + SearchRec.Name;
    String const NewFileName_ = OldFileName_ + ".bak";
	String const MessageFail_ = "Humpty Bumpty ! Njet Internjet !";
    String const MessageOK_ = "The bether its not get !";
    bool returnValue_ = true;

    try {
		returnValue_ = RenameFile(OldFileName_, NewFileName_);
		if (returnValue_ == false)
            RaiseLastOSError();

		lbControlText->Caption = IntToStr(returnValue_);
	}
	catch (const EOSError& ex){
		lbOutput->Caption = "NewFileName_ : " + NewFileName_ + "\nOldFileName_ :" +
		OldFileName_ + "\nErrorCode : " + String(ex.ErrorCode);
	}

    lbOutput->Caption = MessageOK_;


}
//---------------------------------------------------------------------------

I have written some code from a tutorial. Now I am stuck with
the RenameFile() function from System.SysUtils.hpp

The returnValue_ is always false or 0.

I tried it as Administrator. I checked the file permissions security.
Nothing worked.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "uTSearchRec.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2* Form2;
TSearchRec SearchRec;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm2::btnSearchClick(TObject* Sender)
{
    String FindFirstPath_ = "C:\\Users\\NO_NO\\OneDrive\\TEMP\\*.*";
    String Caption1_ = "Current Path:\n" + FindFirstPath_;
    String Caption2_ =
        SearchRec.Name + " is " + IntToStr(SearchRec.Size) + "bytes in size";

    FindFirst(FindFirstPath_, faAnyFile, SearchRec);
    lbOutput->Caption = Caption1_ + "\n" + Caption2_;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::btnAgainClick(TObject* Sender)
{
    if (FindNext(SearchRec) == 0) {
		lbOutput->Caption = SearchRec.Name + " is " + IntToStr(SearchRec.Size) +
                           " bytes in size";
    } else
        FindClose(SearchRec);
}

//---------------------------------------------------------------------------

void __fastcall TForm2::btnRenameClick(TObject* Sender)
{
    String const OldFileName_ = SearchRec.Name;
    String const NewFileName_ = OldFileName_ + "bak";
	String const MessageFail_ = "Humpty Bumpty ! Njet Internjet !";
    String const MessageOK_ = "The bether its not get !";
    bool returnValue_ = true;

    try {
		returnValue_ = RenameFile(OldFileName_, NewFileName_);
        lbControlText->Caption = IntToStr(returnValue_);
	}
	catch (...){
		lbOutput->Caption = "NewFileName_ : " + NewFileName_ + "\nOldFileName_ :" +
		OldFileName_ + "\nreturnValue : " + IntToStr(returnValue_);
	}

    lbOutput->Caption = MessageOK_;


    /*
	if ( (RenameFile(OldFileName_, NewFileName_) == false )) {
		lOutput->Caption = MessageFail_;
	} else
		lOutput->Caption = MessageOK_;
	*/
}
//---------------------------------------------------------------------------

Header

//---------------------------------------------------------------------------

#ifndef uTSearchRecH
#define uTSearchRecH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <System.SysUtils.hpp>

//---------------------------------------------------------------------------
class TForm2 : public TForm
{
  __published: // IDE-managed Components
	TLabel *lbOutput;
    TButton* btnSearch;
    TButton* btnAgain;
    TButton* btnRename;
	TLabel *lbControlText;
    void __fastcall btnSearchClick(TObject* Sender);
    void __fastcall btnAgainClick(TObject* Sender);
    void __fastcall btnRenameClick(TObject* Sender);
  private: // User declarations
  public: // User declarations
    __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2* Form2;
//---------------------------------------------------------------------------
#endif