ich bekomme mit dem folgenden Code - welcher unter D5 läuft - spätestens beim 2 oder 3 Aufruf einen Absturz ohne weitere Felhlermeldung (WIN 7 64 BIT). Der erste Aufruf klappt i.d.R.
Hat jemand eine Idee ?
Vielen Dank in voraus
procedure TMainForm.Button3Click(Sender: TObject);
var msg: TMapiMessage;
liFlags : Longint;
w: string;
begin
w:='Hallo 123456789';
FillChar( msg, sizeOf( msg ), 0 );
with msg do begin
lpszSubject:=PAnsiChar(Ansistring(w));
liFlags := MAPI_DIALOG; // fürs Preview
liFlags := liFlags or MAPI_LOGON_UI;
mapiSendMail(0, application.Handle, msg, liFlags, 0 );
end;
end;
Comment