1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var
  maxvalue : longint;

function TypicalCallBack(reasaon: TCrypterCallBackReason;
  data: longint): integer; stdcall;
begin
  case reason of
    CCBF_FILELENGTH:
      maxvalue := data;
    CCBF_PROGRESS:
      Progressbar1.Position := MulDiv(data,100,maxvalue);
    else begin
      ShowMessage('Och, ´n Fehler');
      Result := 123;
      exit;
    end;
  end;

  // EDIT -->
  Application.ProcessMessages;
  // ist sicher sinnvoll, damit man auch auf "Abbrechen"
  // klicken kann

  Result := 1;
  // ausgehend von dem Hinweis der Doku, dass die Funktion
  // einen Wert ungleich Null zurückgeben MUSS, damit der
  // Prozess weitergeht
end;                    

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

var
  iBreak : integer = 1;

function TypicalCallBack(reasaon: TCrypterCallBackReason;
  data: longint): integer; stdcall;
begin
  { ... }

  Result := iBreak;
end;                    

1:
2:
3:
4:

procedure TForm1.CancelBtnClick(Sender: TObject);
begin
  iBreak := 0;
end;                    

1:
2:
3:
4:

switch(reason) {
  case Grund1:
  case Grund2:
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

type
  tagOFNA = packed record
    lStructSize: DWORD;
    hWndOwner: HWND;
    hInstance: HINST;
    lpstrFilter: PAnsiChar;
    lpstrCustomFilter: PAnsiChar;
    nMaxCustFilter: DWORD;
    nFilterIndex: DWORD;
    lpstrFile: PAnsiChar;
    nMaxFile: DWORD;
    lpstrFileTitle: PAnsiChar;
    nMaxFileTitle: DWORD;
    lpstrInitialDir: PAnsiChar;
    lpstrTitle: PAnsiChar;
    Flags: DWORD;
    nFileOffset: Word;
    nFileExtension: Word;
    lpstrDefExt: PAnsiChar;
    lCustData: LPARAM;
    lpfnHook: function(Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): UINT stdcall;
    lpTemplateName: PAnsiChar;

    // NEU -->
    pvReserved: pointer;
    dwReserved: dword;
    FlagsEx: dword;
  end;                    

1:
2:

OPENFILENAME_SIZE_VERSION_400A = sizeof(TOpenFileNameA) -
  sizeof(pointer) - (2 * sizeof(dword));                    

1:

ofn.lStructSize := OPENFILENAME_SIZE_VERSION_400                    

1:

ofn.lStructSize := sizeof(TOpenFileName);                    

1:

ofn.lStructSize := OPENFILENAME_SIZE_VERSION_400                    

1:

ofn.lStructSize := OPENFILENAME_SIZE_VERSION_400;                    

1:

ofn.lStructSize := OPENFILENAME_SIZE_VERSION_400;                    

1:

sizeof(TOpenFileName)                    

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

  {$EXTERNALSYM OPENFILENAME_SIZE_VERSION_400A} 
  OPENFILENAME_SIZE_VERSION_400A = sizeof(TOpenFileNameA) - 
    sizeof(pointer) - (2 * sizeof(dword)); 
  {$EXTERNALSYM OPENFILENAME_SIZE_VERSION_400W} 
  OPENFILENAME_SIZE_VERSION_400W = sizeof(TOpenFileNameW) - 
    sizeof(pointer) - (2 * sizeof(dword)); 
  {$EXTERNALSYM OPENFILENAME_SIZE_VERSION_400} 
  OPENFILENAME_SIZE_VERSION_400  = OPENFILENAME_SIZE_VERSION_400A;                    

1:

ofn.lStructSize := sizeof(TOpenFileName);