Difference between revisions of "Components and Code examples/sk"
m (rozlišení platformy, oper. systému (OS)) |
m (rozlišení platformy, oper. systému (OS)) |
||
| Line 1: | Line 1: | ||
| − | unit opersys_u; | + | <nowiki>unit opersys_u; |
{$mode objfpc}{$H+} | {$mode objfpc}{$H+} | ||
| Line 57: | Line 57: | ||
{$I opersys_u.lrs} | {$I opersys_u.lrs} | ||
| − | end. | + | end.</nowiki> |
Revision as of 13:19, 12 April 2008
unit opersys_u; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation var os:byte; { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin os:=0; {$IFDEF WIN32} // bezi WINDOWS os:=1; {$ENDIF} {$IFDEF LINUX} // bezi linux os:=2; {$ENDIF} end; procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:='Spuštěn operační systém '; case os of 0 : messagedlg(s+'neznámý', mtwarning,[mbok],0); 1 : messagedlg(s+'WINDOWS', mtwarning,[mbok],0); 2 : messagedlg(s+'LINUX', mtwarning,[mbok],0); end; end; initialization {$I opersys_u.lrs} end.
