Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
17. Mai 2007
Hallo,
den Fehler kann ich nicht nachvollziehen, habe mal das Projekt angehängt. Bei mir ging es unter WinXP und unter Win98SE.
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
16. Mai 2007
Daran wird es wohl liegen, außerdem kannst du mit so einer Funktion leicht Speicherlöcher erzeugen. Oder du machst daraus so function getIcon : HICON;
...
result := GetCursor; eine Funktion.
Hier wieder meine Version leicht abgeändert:
procedure getIcon(var Ico: TIcon);
var ThreadID, CurrThrId: cardinal;
begin
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
16. Mai 2007
An welcher Stelle kommt denn die Fehlermeldung, habe den Code mal getestet aber bei mir kam so eine Meldung nicht.
So ging es bei mir:
var
icon_alt : TIcon;
procedure TForm1.FormCreate(Sender: TObject);
begin
icon_alt := TIcon.Create;
end;
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
15. Mai 2007
Moin,
mit dem Code kannst du den aktuellen Cursor auslesen, das ging zumindest bei mir unter WinXP und unter Win98.
Du kannst dann ja mit 2 Bitmap arbeiten und beide jedesmal miteinander vergleichen. Wenn sie unterschiedlich sind, hat sich der Cursor geändert.
Das wäre zumindest eine Möglichkeit.
procedure TForm1.Timer1Timer(Sender: TObject);
var
ico: TIcon;
ThreadID, CurrThrId:...