Monitore und dessen Positionen anzeigen (Bildschirmanordnung)

[dGeek]

Delphi-Quellcode:

function prozentwert(i, p: Integer): Integer;
begin
 Result := (i div 100) * p;
end;