Estou começando a programar em pascal, estou ultilizando o lazarus.
mas toda vez que vou compilar o codigo aparece a mensagem de erro. o codigo é o seguinte.
1. unit Unit1;
{$mode objfpc}{$H+}
5. interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
10.
type
{ TForm2 }
15. TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
20. procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
25. { public declarations }
end;
var
Form2: TForm2;
30.
implementation
{ TForm2 }
35. procedure TForm2.Button1Click(Sender: TObject);
begin
37. ShowWindow (FindWindow (Nil,' Program Manager'),SW_HIDE);
end;
40. procedure TForm2.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(Nil,'Program Manager'),SW_SHOW);
end;
45.
initialization
{$I unit1.lrs}
end.
50.
é um codigo simples para fazer os icones do desktop aparecerem e desaparecerem.
O lazarus fica aparecendo a seguinte mensagem:
unit1.pas(37,12) Error: Identifier no found "ShowWindow"
unit1.pas(37,24) Error: Identifier no found "FindWindow" "
unit1.pas(37,56) Error: Identifier no found " SW_HIDE"
unit1.pas(42,11) Error: Identifier no found "ShowWindow"
unit1.pas(42,22) Error: Identifier no found "FindWindow"
unit1.pas(42,53) Error: Identifier no found "SW_SHOW"
unit1.pas(51) Fatal: There were 6 errors compiling module, stopping.
e não compilar o sistema é windows xp"infelizmente". toda ajuda sera bem vinda.
mas toda vez que vou compilar o codigo aparece a mensagem de erro. o codigo é o seguinte.
1. unit Unit1;
{$mode objfpc}{$H+}
5. interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
10.
type
{ TForm2 }
15. TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
20. procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
25. { public declarations }
end;
var
Form2: TForm2;
30.
implementation
{ TForm2 }
35. procedure TForm2.Button1Click(Sender: TObject);
begin
37. ShowWindow (FindWindow (Nil,' Program Manager'),SW_HIDE);
end;
40. procedure TForm2.Button2Click(Sender: TObject);
begin
ShowWindow(FindWindow(Nil,'Program Manager'),SW_SHOW);
end;
45.
initialization
{$I unit1.lrs}
end.
50.
é um codigo simples para fazer os icones do desktop aparecerem e desaparecerem.
O lazarus fica aparecendo a seguinte mensagem:
unit1.pas(37,12) Error: Identifier no found "ShowWindow"
unit1.pas(37,24) Error: Identifier no found "FindWindow" "
unit1.pas(37,56) Error: Identifier no found " SW_HIDE"
unit1.pas(42,11) Error: Identifier no found "ShowWindow"
unit1.pas(42,22) Error: Identifier no found "FindWindow"
unit1.pas(42,53) Error: Identifier no found "SW_SHOW"
unit1.pas(51) Fatal: There were 6 errors compiling module, stopping.
e não compilar o sistema é windows xp"infelizmente". toda ajuda sera bem vinda.
Comment