1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TMainForm.FlyFF1Click(Sender: TObject);
var
Reg: TRegistry;
regPath: String;
Dateiname : string;
GGPath: String;
PathString: String;
Quelldatei, Zieldatei : string;
OwnPath: String;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\GalaNetEu\Flyff',false) then
      regPath:=reg.ReadString('App Path');
  except
    showmessage('Fehler: Unable to read from Flyff''s registry');
  end;

  GGPath:=regPath+'\GameGuard\Splash.jpg';
  if not DeleteFile(GGPath) then
  ShowMessage('Datei "'+Dateiname+'" konnte nicht gelöscht werden!');
  sleep(100);
  OwnPath:=ExtractFilePath(ParamStr(0))+'Tools\Splash.JPG';
  if not CopyFile(PChar(OwnPath), PChar(GGPath), true) then
  ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');

  PathString:=regPath+'\Flyff.exe';

  if FileExists(PathString) then
    ShellExecute(Handle, 'open', PChar(PathString), nil, nil, SW_SHOWNORMAL)
  else
    showmessage('Flyff existiert nicht?! WTF?!');
   Reg.Free;
  end;