So jetzt habe ich es so, wie ich mir das in etwa vorgestellt habe. Danke nochmal an alle! Echst super Hilfe hier! Das einzige was mir bei Delphi noch nicht klar ist, ist die Sache mit der Debug und Release Version, die es unter VC gibt. Delphi erstellt nur eine Exe Datei und die ist abhängig von den gewählten Compileroptionen z.B.: {$D+} und etc. Ist das richtig? Bedeutet dann, in Delphi {$D+} = _DEBUG wie unter VC?
Danke nochmals.
Delphi-Quellcode:
{$IFDEF _DEBUG}
function CHECK_HR(p: HRESULT): HRESULT;
var
acError: array[0..255] of Char;
begin
if FAILED(p) then begin
ZeroMemory(@acError, sizeof(Char) * 256);
strlfmt(acError, sizeof(Char) * 256, 'DEBUG: HRESULT FAILED %d in file %s in line %d ', [p, __FILE__, __LINE__]);
MessageBox(0, acError, 'HRESULT FAILED', MB_OK or MB_ICONERROR);
end;
Result := p;
end;
{$ELSE}
function CHECK_HR(p: HRESULT): HRESULT;
begin
Result := p;
end;
{$ENDIF}