![]() |
Frage über installieren vom Programm auf den Desktop
Hallo!
Ich bin neu und hab zum Anfang ein Program gemacht indem man sich kleine Manuals von Delphi oder von Turbopascal auf den desktop installieren kann.(oder besser gesagt sollte.) Jetzt weiß ich aber nicht mehr weiter wie ich das Program dazu bringe die Textdatei von dem Ordner auf meinen Desktop zu laden. Hier mal zur erläuterung: Ich hab einen Order mit den Dateien -------- - - -------- Da ist die .exe datei drinnen und ein order mit den verschieden Texten. Und jetzt sollen die dateien auf meinen Desktop geladen werden wenn ich im Programm draufklicke: OEinführung Was muss ich dazu eingeben??? Kai |
Re: Frage über installieren vom Programm auf den Desktop
Was verstehst du unter "auf den desktop laden"?
Willst du sie auf den Desktop verschieben / kopieren? Das ginge mit MoveFile bzwCopyFile. |
Re: Frage über installieren vom Programm auf den Desktop
Hi!
Ich will das er die dateien aus dem verzeichnis kopiert und dann die kopien auf den desktop setzt. Also muss ich ja dann eingeben : copyfile.... ??????..... danke! kai |
Re: Frage über installieren vom Programm auf den Desktop
|
Re: Frage über installieren vom Programm auf den Desktop
Geb mal ein: Copyfile, setz den Cursor in das Wort und drück mal auf F1.
Siehe da: Da steht alles, was Du brauchst ;-) Das ganze nennt sich auch OH :) Edit: Mift.. schon wieder zu langsam... |
Re: Frage über installieren vom Programm auf den Desktop
Hallo!
Also es geht nicht weil immer unbekannter bezeichner kommt. Hier mal was ich geschrieben hab: CopyFile('C:\Dokumente und Einstellungen\Hunter\Desktop\Lazaa\Manuals\Delphi\ CWG.pdf','C:\CWG.pdf',true); Der Zeilenumbruch is hier nur weil die Zeile hier zu kurz ist. Was ist hier der Fehler?? kai |
Re: Frage über installieren vom Programm auf den Desktop
Das geht bei mir einwandfrei.
Kommt das bei dir beim Kompilieren oder erst beim Ausführen dieses Code-Abschnitts? |
Re: Frage über installieren vom Programm auf den Desktop
Des kommt beim Compilieren.Das Programm lässt sich so ja gar nich starten!!
Kann es dein das es an Delphi 1 liegt?? kai |
Re: Frage über installieren vom Programm auf den Desktop
Zitat:
|
Re: Frage über installieren vom Programm auf den Desktop
Mist das is natürlich ärgerlich!!! :pale: :wall:
Keiner ne andere Lösung???? Kai :roll: |
Re: Frage über installieren vom Programm auf den Desktop
|
Re: Frage über installieren vom Programm auf den Desktop
Hallo!
Nein da gibt es leider auch nichts! :cry: :cry: :pale: Aber trotzdem danke! :coder2: Kai |
Re: Frage über installieren vom Programm auf den Desktop
Also das müsste aber schon gehen...
|
Re: Frage über installieren vom Programm auf den Desktop
Probier's mal so:
Delphi-Quellcode:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls {<== NICHT VERGESSEN!!}; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString; Flags: FILEOP_FLAGS): Integer; var FromPath, ToPath: AnsiString; SHFileOpStruct: TSHFileOpStruct; begin FromPath := aFrom + #0#0; ToPath := aTo + #0#0; with SHFileOpStruct do begin Wnd := 0; wFunc := aOperation; pFrom := PAnsiChar(FromPath); if ToPath <> '' then begin pTo := PAnsiChar(ToPath) end else begin // target available pTo := nil; end; // target not available fFlags := Flags; end; // structure Result := SHFileOperationA(SHFileOpStruct); end; procedure TForm1.Button1Click(Sender: TObject); begin DoFileWork(FO_COPY, 'aktuelle Datei (Pfad + Name)', 'neue Datei (Pfad + Name)', FOF_NOCONFIRMATION); end; end. |
Re: Frage über installieren vom Programm auf den Desktop
Zitat:
|
Re: Frage über installieren vom Programm auf den Desktop
Ich denke auch das es an Delphi 1 liegt, aber in ein paar Tagen bekomm ich Delphi7 und dann mach ich halt da weiter.
Trotzdem danke!! Kai |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:08 Uhr. |
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