Delphi-PRAXiS - Delphi Cursor laden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Cursor laden (https://www.delphipraxis.net/52727-cursor-laden.html)

Seas

Ich bin gerade dabei in meinen Programm eigene Cursor reinzuladen doch irgend wie will das nicht funktionieren. :gruebel:
Hab bis jetzt folgenden Source Code geschrieben.

Delphi-Quellcode:

			Screen.Cursors[crMyCursor2] := LoadCursorFromFileA(ExtractFilePath(Application.ExeName) + '\winbut.cur');
		

Doch da die funktion LoadCursorFromFileA einen PAnsiChar benötigt funktioniert das ganze halt nicht.
Wie schaff ich das jetzt, dass ich einen Cursor lade, bzw. wie kann ich den String in einen PAnsiChar konvetieren??

MFg st0rm

Re: Cursor laden

1. Lass den Backslash in '\winbut.cur' weg (ist nicht nötig)
2. Mache einfach einen Cast herum

Delphi-Quellcode:

			Screen.Cursors[crMyCursor2] := LoadCursorFromFileA(PChar(ExtractFilePath(Application.ExeName) + 'winbut.cur'));
		

Wenn's so nicht geht, dann musst du zuerst einer lokalen Variablen den Pfad zuweisen und diese dann casten.

Re: Cursor laden

Thx, so gehts :thumb: