1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

unit WinForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,System.Text,
  System.Windows.Forms, System.Data,projekt1,System.Runtime.InteropServices;

  [DLLImport ('User32')]
  Function CharUpperA (lpResult:StringBuilder): Integer;external;					

1:
2:
3:
4:
5:
6:
7:
8:

<System.Runtime.InteropServices.DllImport("KERNEL32.DLL", EntryPoint := "MoveFileW", _
   SetLastError := True, CharSet := CharSet.Unicode, _
   ExactSpelling := True, _
   CallingConvention := CallingConvention.StdCall)> _
Public Shared Function MoveFile(src As String, dst As String) As Boolean
    ' Leave function empty - DLLImport attribute forwards calls to MoveFile to
    ' MoveFileW in KERNEL32.DLL.
End Function