hi,
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
-->
function RemoveFile(
const Filename:
String): DWORD; <--
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
-->
function TForm1.RemoveFile(
const Filename:
String): DWORD;
begin
result := Windows.DeleteFile(PChar(Filename));
end; <--
end.
Der Code läfut zwar nicht, es soll dir ja auch nur erklären, wie es läuft.