Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Wie Kopiert man Dateien in den Projekt Ordner? (https://www.delphipraxis.net/142191-wie-kopiert-man-dateien-den-projekt-ordner.html)

Fussel9 23. Okt 2009 15:47

Re: Wie Kopiert man Dateien in den Projekt Ordner?
 
Ok wenn bei der MainForm ein Button mit der aufschrift Schließen geklickt wird passiert folgendes:

ein fenster öffnet sich das eine grafik zeigt ein Timer ist in dieser form sein delay ist 3000-->

Delphi-Quellcode:
procedure TFLemon.TLemonTimer(Sender: TObject);
var Editor: TEditor;
begin
if a <> 1 then
  begin
    LLizenz.Visible:=True;
    a:=1;
  end
else
  begin
    if MessageDlg('Willst du selbst eine Grußkarte erstellen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
      Close;
      Editor:=TEditor.create(self);
      Editor.Show;
    end;
  end;
end;

himitsu 23. Okt 2009 15:57

Re: Wie Kopiert man Dateien in den Projekt Ordner?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Klar, wenn du den Timer nicht mehr abstellst, dann ruft er deinen Code immer wieder auf :zwinker:
[edit] hmmmm :gruebel: ... hab nun das Close gesehn


und im Anhang noch was für deinen Lehrer:
er soll mal die EXE und dann auch mal die Batchdatei im Unterverzeichnis "Anders" aufrufen
dann sieht er (sollte er zumindestens), was mit seinen geliebten unveränderlichen relativen Pfaden passiert.

Fussel9 23. Okt 2009 16:05

Re: Wie Kopiert man Dateien in den Projekt Ordner?
 
Och man... und nu? Dachte ich krieg das jetz noch fertig :gruebel:
muss gleich weg... :(

Luckie 23. Okt 2009 16:28

Re: Wie Kopiert man Dateien in den Projekt Ordner?
 
Hier http://www.delphipraxis.net/internal...t.php?t=167227 geht es anscheinend weiter.


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:09 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz