![]() |
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 03:49 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