Wie komme ich an das RECT für SystemParametersInfo

[Akut-Programming]

Ich wollte mal die Arbeitsfläche von Windows anpassen, sodas alle anderen Anwendungen sozusagen an meins "andocken" beim maximieren.. dazu hatte ich in der Windows SDK die Funktion SystemParametersInfo gefunden, mit der dieß möglich ist. Nur leider fehlt mir hierzu das verlangte RECT..!????

Code:

SPI_SETWORKAREA   The pvParam parameter must point to the RECT structure that contains the coordinates of the work area.

[Luckie]

In dem du es angibst?

Delphi-Quellcode:

var
  rect: Trect;
begin
  rect.Left := 100;
  rect.Top := 100;
  rect.Right := 200;
  rect.Bottom := 200;

[Akut-Programming]

dank dir!!

[Akut-Programming]

warum funztn das nicht???
SystemParametersInfo(SPI_SETWORKAREA,Screen.Height - Form1.Constraints.MaxHeight,rect,SPIF_UPDATEINIFILE); Ich bekomm dir Meldung:

Code:

Inkompatible Typen: 'TRect' und 'TPointer'

In der SDK Hilfe steht aber..

Code:

pvParam

Depends on the system parameter being queried or set. For more information about systemwide parameters, see the uiAction parameter. If not otherwise indicated, specify NULL

The pvParam parameter must point to the RECT structure that contains the coordinates of the work area.

Hab das Rect Struct eingebaut wie oben geschrieben..

[dizzy]

Zitat von Akut-Programming:

In der SDK Hilfe steht aber..

Code:

[...] The pvParam parameter must [b]!!! point !!![/b] to the RECT structure [...]

Also mit:

Code:

rect^

übergeben, oder gleich PRect verwenden.


gruss,
dizzy

[Akut-Programming]

hmm jetzt bekomm ich aber ne Zugirffsverletzung..

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: PRect;
begin
  rect.Left := 100;
  rect.Top := 100;
  rect.Right := 200;
  rect.Bottom := 200;
  Form1.Constraints.MaxHeight := 30;
  Form1.Constraints.MinHeight := 30;
  Form1.Constraints.MinWidth := Screen.Width;
  //SystemParametersInfoA();
  //SystemParametersInfoW();
  SystemParametersInfo(SPI_SETWORKAREA,Screen.Height - Form1.Constraints.MaxHeight,rect,SPIF_UPDATEINIFILE);
end;

[mirage228]

Hi!

Mach es so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: PRect;
begin
  rect^.Left := 100;
  rect^.Top := 100;
  rect^.Right := 200;
  rect^.Bottom := 200;
  Form1.Constraints.MaxHeight := 30;
  Form1.Constraints.MinHeight := 30;
  Form1.Constraints.MinWidth := Screen.Width;
  //SystemParametersInfoA();
  //SystemParametersInfoW();
  SystemParametersInfo(SPI_SETWORKAREA, Screen.Height - Form1.Constraints.MaxHeight, rect, SPIF_UPDATEINIFILE);
end;

oder so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: TRect;
begin
  rect.Left := 100;
  rect.Top := 100;
  rect.Right := 200;
  rect.Bottom := 200;
  Form1.Constraints.MaxHeight := 30;
  Form1.Constraints.MinHeight := 30;
  Form1.Constraints.MinWidth := Screen.Width;
  //SystemParametersInfoA();
  //SystemParametersInfoW();
  SystemParametersInfo(SPI_SETWORKAREA, Screen.Height - Form1.Constraints.MaxHeight, @rect, SPIF_UPDATEINIFILE);
end;

Sollte funktionieren (hoffe ich zumindest mal )

mfG
mirage228

[w3seek]

Zitat von mirage228:

Hi!

Mach es so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: PRect;
begin
  rect^.Left := 100;
...

das faellt schon fast unter grob fahrlaessiger koerperverletzung

[mirage228]

Zitat von w3seek:

Zitat von mirage228:

Hi!

Mach es so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: PRect;
begin
  rect^.Left := 100;
...

das faellt schon fast unter grob fahrlaessiger koerperverletzung

Argh, ja du hast recht!

Das geht nicht und wird in einer AV enden, nimm lieber die andere Variante!

Ist wohl schon zu spät ...

mfG
mirage228

[Akut-Programming]

Hi Leute!!

Ich hab da mal wieder n Problem... unzwar will ich n Tool so in der Art von ner Toolbar schreiben. Die Funktion wie man die Arbeitsfläche von Windows vergibt hab ich ja schon in der Windows SDK gefunden. Es funktioniert nur nicht so wie ich es mir vorstelle..die Anwendungen sollen an meiner "andocken" wenn sie maximiert werden. Nur bei mir ist es so, das wenn ich die Arbeitsfläche mit meinem Code verkleinere, meine Anwendung dann auch an ner anderen Position angezeigt wird.

Meine Frage nun.. wie muss ich meinen Code umstellen, damit meine Anwendung auf der Taskleiste anliegt, aber alle anderen Anwendungen an meiner dann andocken, wenn sie maximiert werden!?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: TRect;
begin
  Form1.Constraints.MaxHeight := 30;
  Form1.Constraints.MinHeight := 30;
  Form1.Constraints.MinWidth := Screen.Width;
  //Form1.Top:=Form1.Top+60;

  rect.Left := Screen.WorkAreaLeft;
  rect.Top := Screen.WorkAreaTop;
  rect.Right := Screen.WorkAreaWidth;
  rect.Bottom := Screen.WorkAreaHeight;
  SystemParametersInfo(SPI_SETWORKAREA,Screen.Height,@rect,SPIF_UPDATEINIFILE);
end;