Resourcen an eine .exe anhängen

[noHuman]

Ich hab nach dem MSDN Zeugs, so wie ich es verstanden hab, ein Codesample erstellt:

Delphi-Quellcode:

procedure TForm1.BitBtn1OnClick( Sender : TObject );
var
 h  : THandle;
const
 exedatei = 'project2.exe';
begin
{
HANDLE BeginUpdateResource(      
    LPCTSTR pFileName,
    BOOL bDeleteExistingResources
);
}

h := BeginUpdateResource(exedatei,TRUE);

{
BOOL UpdateResource(      
    HANDLE hUpdate,
    LPCTSTR lpType,
    LPCTSTR lpName,
    WORD wLanguage,
    LPVOID lpData,
    DWORD cbData
);
}

 UpdateResource(h,RT_RCDATA, 'text', 'RCDATA','C:\textfile.txt',340);

{
BOOL EndUpdateResource(      
    HANDLE hUpdate,
    BOOL fDiscard
);
}

EndUpdateResource(h,FALSE);

end;

Ist dieses Codesample richtig oder ost da was falsch ?

Bitte auf Fehler hinweisen (ungetestet von mir!)