Witam,
Mam dosyć spory problem z rozgryzieniem, dlaczego mój prosty kod nie chce działać.
Sprawa wygląda tak:
var
S1 : ShortString;
H : LongWord;
X4 : Pointer;
begin
S1:=DeCode(STR1);
X4:=@H;
asm
push X4
push KEY_WRITE
push 0
push offset S1+1
push DWORD(2147483649)
call...