SimaWB

unit ClassToJSON;

interface

uses
  REST.JSON;

type
  TLogin = class
  private

SimaWB

unit uCursor;

interface

uses Controls, Forms;

type
 TTmpCursor = class(TInterfacedObject, IInterface)
 private
   FCursor: TCursor;

SimaWB

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc, Vcl.StdCtrls,
  Vcl.ComCtrls, Winapi.ShellApi;

type

SimaWB

[CustomMessages]
tr.IDP_FormCaption           =Ek dosyalar indiriliyor
tr.IDP_FormDescription       =Kurulum ek dosyaları indirirken lütfen bekleyiniz...
tr.IDP_TotalProgress         =Toplam ilerleme
tr.IDP_CurrentFile           =Mevcut dosya
tr.IDP_File                  =Dosya:
tr.IDP_Speed                 =Hız:
tr.IDP_Status                =Durum:
tr.IDP_ElapsedTime           =Geçen süre:
tr.IDP_RemainingTime         =Kalan süre:

SimaWB

unit USBEventThread;

interface

uses
  Windows, Classes;

type
  TUsbDrive = record
    DriveLetter: Char;

SimaWB

unit ShellNotify;

interface

uses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,
  ActiveX, ComObj, ShlObj;

const
  SNM_SHELLNOTIFICATION = WM_USER +1;
  SHCNF_ACCEPT_INTERRUPTS      = $0001;