Executefile i project fil

Hvis der er problemer med at forstå spørgsmålet skal i ikke være bange for at spørge efter en omformulering!

Hvorfor det ikke virker kan der være 1.000.000 grunde til, først og fremst vel fordi FMXUtils er noget hø!

Udover det så skulle det her løse dit problem :

program Project1;

uses
  Windows, ShellApi;

{$R *.RES}

function GetScreenHeight: Integer;
begin
  Result := GetSystemMetrics(SM_CYSCREEN);
end;

function GetScreenWidth: Integer;
begin
  Result := GetSystemMetrics(SM_CXSCREEN);
end;

begin
  if (GetScreenWidth >= 800) and (GetScreenHeight >= 600) then
    ShellExecute(0,'open','Lagerxl.exe','','',SW_SHOW)
  else
    ShellExecute(0,'open','Lagerxs.exe','','',SW_SHOW)
end.


Nu melder spørgsmålet sig så bare "Hvordan ind i h... vidste du det fram med størelsen på skærmen ?" ... Tjoo... Ser du danneck, Jeg viste det var properties på et Screen objekt der er erklæret i forms.pas. Derfor lukker jeg forms.pas op og kiger implementationen af disse funktioner den :o)

Jens B

borrisholt, der er da vist gået kaffemik i den sidste del af dit svar, ik ?

Tja ... du har vist ret sjensen. Tag koden som den står, og hvor den giver en compiler fejl sættes et ekstra ' Så skulle det virke ...


Jens B

Jeg tjecker lige om det virker!