![](styles/elise/misc/quote_24x24.png)
Zitat von
DeddyH:
![Question](images/smilies/icon_question.gif)
Zeig mal den Code.
Habe es zwar oben schon aber bitte
zTmp : array[0..255] of char;
Delphi-Quellcode:
function AddResource(sResource : PAnsiChar): Integer;
var
UseStyle, hMain,
nIndex , nCount: Integer;
hImage : Cardinal;
begin
nCount := 0;
GetShortPathName(sResource, @zTmp, SIZEOF(zTmp));
zTmp := UpperCase(zTmp); // <<< will nicht
hMain := wMainWindow(0);
EDIT:
Jetzt habe ich dadurch wieder ein anderes problem .. grrrr
zTmp := PChar(sResource + RightStr('0000' + LTrim(IntToStr(nCount)), 4));
Zitat:
[Pascal Error] uGDIButton.pas(743): E2010 Incompatible types: 'Array' and 'PAnsiChar'
Das nerve mich ungemein diese konvertierungen immer
gruss Emil