Umwandlungen

[TopDogg]

gute Kugel

das prob ist, das ich StrToInt nicht habe, da ich nur Windows und Messages von den units benutze.

Ich versuch es nochmal zu erklären.

Delphi-Quellcode:

var
  xRes, yRes, FreqRate: Array[0..5] of Char;

function NewRes(XRes, YRes: DWORD; Frequency: Cardinal): Integer; 
var
  DevMode: TDeviceMode;
begin
  EnumDisplaySettings(nil, 0, DevMode);
  DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
  DevMode.dmPelsWidth := XRes;
  DevMode.dmPelsHeight := YRes;
  DevMode.dmDisplayFrequency := Frequency;
  Result := ChangeDisplaySettings(DevMode, 0);
end;

...
  GetDlgItemText(Dlg, edtResX, xRes, 5);
  GetDlgItemText(Dlg, edtResY, yRes, 5);
  GetDlgItemText(Dlg, edtRate, FreqRate, 5);
  if MessageBox(Dlg, 'Want to Change?', 'Question.', MB_YESNO or MB_ICONQUESTION) = IDYES then
    if not NewRes(xRes, yRes, FreqRate) = DISP_CHANGE_SUCCESSFUL then
      Exit;
    end;
...

edtResx, edtResy, edtRate sind EditFelder.
xRes, yRes und FreqRate sind aber Array of Char.
Da komm ich nicht weiter.

Hoffe könnt mir weiter helfen, und wen nich dan darauf geschissen da ich ja nur die func NewRes testen wollte und in die kan ich ja von anfang an die werte eintragen und brauch sie nicht aus edits raus zu lesen.

thnx