@Grayknife
40 MB gepackt? Wie groß ist noch mal Office 2013? Viel größer kann es nicht sein.
Entpackt macht die Exe 49 MB. Entfernt man die Wavs, macht das etwas über 3 MB große Datei. Ich denke alleine 40 MB macht die gewaltige Eröffnungsmelodie.
Auch ist es nicht nötig Bitmaps als Hintergrund zu nehmen. Warum keine Jpegs? Die machen etwa 2% der Größe aus. Die Konvertierung ist ein Kinderspiel. Beispiel (aus dem Kopf):
Delphi-Quellcode:
uses
Jpeg;
procedure LoadJpegToBitmap(const FileName: String; Bitmap: TBitmap);
var
Jpg: TJPEGImage;
begin
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile(FileName);
Bitmap.Assign(Jpg);
finally
Jpg.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
//Bmp.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Bild1.bmp');
LoadJpegToBitmap(ExtractFilePath(ParamStr(0)) + 'Bild1.jpg', Bmp);
Canvas.Draw(0, 0, Bmp);
finally
Bmp.Free;
end;
end;
Dann die Sache mit dem Passwort. Das scheint dir ganz wichtig zu sein. Ok, meinetwegen. Aber du wurdest mehrmals drauf hingewiesen ein Ausstieg aus der Passwortabfrage zu liefern. Jeder macht es. Dein Programm muss man mit dem Taskmanager abschießen wenn man das Passwort nicht mehr weiß.
Und noch was ist mir in der einen Minute aufgefallen: man weiß nie wer gerade dran ist. Wie wäre es mit einem Hinweis?