Cursor overalt

Er der i øvrigt et program der er godt til at lave ani filer med ?

Screen.Cursor := crHourglass;

At lave ini-filer:

uses
  IniFiles;

private
  Ini: TIniFile;

procedure Save;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');

  Ini.WriteInteger('Main', 'xPos', Left);
  Ini.WriteInteger('Main', 'yPos', Top);
  Ini.WriteString('Main', 'Caption', Caption);

  Ini.Free;
end;

procedure Load;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');

  Left := Ini.WriteInteger('Main', 'xPos', Left);
  Top := Ini.WriteInteger('Main', 'yPos', Top);
  Caption := Ini.WriteString('Main', 'Caption', 'NyCaption');

  Ini.Free;
end;

tror han mente animerede cursors, og desuden virker Screen.Cursor := crHourglass; ikke system wide

Hmm... Good point!
Ini'en virker i hvert fald! ;)

Dvs. at det ikke kan lade sig gøre ?

jo selvfølgelig kan det lade sig gøre, prøv evt at kigge på windows api'et SetSystemCursor() er ikke sikker på den hedder det, men du kan finde en del med en søgning efter "cursor" i win32 sdk

procedure TForm1.FormCreate(Sender: TObject);
begin
SetSystemCursor(loadIcon(0,IDI_Hand),OCR_NORMAL);
end;

Du kan også loade curseren

SetSystemCursor(LoadCursorFromFile('C:\WINDOWS\Cursors\dinosaur.ani'),OCR_NORMAL);

Undskyld at dine point først kommer nu