Pauseskærm

Har lige prøvet at sætte din linie ind i mit D6 program, jeg kan sagtens kompilere den

Har du alle Uses med, jeg tror den ligger i den som hedder windows

Her har du dem som er med i mit testprogram

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, StdCtrls, Buttons, ExtCtrls;

Og jeg får pauseskærm med følgende kode

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DefWindowProc( getactivewindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0 );
end;

end.

Hvis du ligger din mail adr. kan jeg sende dig koden

det virker sq :)
jeg ved ikke hvad jeg har gjort galt før, men jeg oprette en ny application og kopiere din kode, og det funkede :)...

Og jeg kopierde bare din linie kode ;-)

Men jeg tror du manglede en unit under uses

jeg fatter det ikke ;)...måske var jeg lidt for træt under de sidste forsøg....hmm...lørdag nat ;)...