Ich bin grad voll gestresst.
War gerade dabei, für mein Projekt den Client in der Version 1.0 fertig zustellen, hatte mich schon gefreut, dass ich die Arbeit hinter mir habe und plötzlich gings los!
in dem codestück
Delphi-Quellcode:
function winampsong(): string;
var
hWinAmp : HWND;
// buffer: array[0..MAX_PATH] of char;
len : integer;
Song : String;
begin
hWinAmp := FindWindow('Winamp v1.x', nil);
if hWinAmp <> 0 then
begin
// Winamp-Fenster gefunden, auslesen
Len := SendMessage(hWinAmp, WM_GETTEXTLENGTH, 0, 0);
SetLength(Song, Len);
SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(Song));
end;
len:=length(song);
if len = 0 then song:='Winamp closed';
result:=song;
end;
medelt der plötzlich in der zeile "Invalide Typecast"
SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(Song));
Allerdings habe ich rein gar nichts an dem codestück verändert, das tritt aber plötzlich in allen möglichen funktionen und proceduren im gesammten quellcode auf, obwohl ich die betreffenden
pas-datein nichtmal geöffnet hatte!
Kann mir da jemand helfen?
ich weis absolut nichmehr weiter!
gruß Richard