program Test;

uses
 Windows, KOL;

var
 Button, FileList: PControl;

procedure ProcessPDF(PDFFileName, ImageFileName: String);
var
 libGSdll: HMODULE;
 GSinstance: Pointer;
 ErrorCode: Integer;
 Args: array of PChar;
 gsapi_new_instance: function (pinstance: Pointer; caller_handle: Pointer): Integer; stdcall;
 gsapi_init_with_args: function (pinstance:Pointer; argc: Integer; argv: array of PChar): Integer; stdcall;
 gsapi_exit: function (pinstance: Pointer): Integer; stdcall;
 gsapi_delete_instance: procedure (pinstance: Pointer); stdcall;
begin
 MsgOK('Source = ' + PDFFileName + #$0D#$0A + 'Destination = ' + ImageFileName);
 if FileExists(PDFFileName) then
 begin
   libGSdll := LoadLibrary(PChar('c:\Program Files\gs\gs8.60\bin\gsdll32.dll'));
   if libGSdll <> 0 then
   begin
     @gsapi_new_instance := GetProcAddress(libGSdll,'gsapi_new_instance');
     @gsapi_init_with_args := GetProcAddress(libGSdll,'gsapi_init_with_args');
     @gsapi_exit := GetProcAddress(libGSdll,'gsapi_exit');
     @gsapi_delete_instance := GetProcAddress(libGSdll,'gsapi_delete_instance');
     New(GSinstance);
     ErrorCode := gsapi_new_instance(@GSinstance,nil);
     if ErrorCode <> 0 then
       MsgOK('Impossible to open an instance of Ghostscript. Error code: ' + Int2Str(ErrorCode));
     try
       SetLength(Args,11);
       Args[0] := '-q';
       Args[1] := '-dNOPAUSE';
       Args[2] := '-dBATCH';
       Args[3] := '-dSAFER';
       Args[4] := '-sDEVICE=png16m';
       Args[5] := '-r300';
       Args[6] := '-dGraphicsAlphaBits=4';
       Args[7] := '-dFirstPage=1';
       Args[8] := '-dLastPage=1';
       Args[9] := PChar('-sOutputFile=' + ImageFileName);
       Args[10] := PChar(ExtractShortPathName(PDFFileName));
       ErrorCode := gsapi_init_with_args(GSinstance,Length(Args),Args);
       if ErrorCode <> 0 then
         MsgOK('Error printing document: ' + ImageFileName);
       gsapi_exit(GSinstance);
     finally
       gsapi_delete_instance(GSinstance);
     end;
     GSinstance := nil;
     FreeLibrary(libGSdll);
   end;
 end;
end;

procedure ButtonClick(Dummy: Pointer; Sender: PControl);
var
 Counter: Integer;
begin
 for Counter := 0 to FileList.Count -1 do
   ProcessPDF(FileList.Items[Counter],ChangeFileExt(FileList.Items[Counter],'.png') );
end;

begin
 Applet := NewForm(nil,'');
 FileList := NewEditbox(Applet,[eoMultiline,eoReadonly]);
 FileList.Color := clWhite;
 FileList.Add('c:\1.pdf' + #$0D#$0A);
 FileList.Add('c:\2.pdf' + #$0D#$0A);
 FileList.Add('c:\3.pdf' + #$0D#$0A);
 Button := NewButton(Applet,'Convert').PlaceRight;
 Button.OnClick := TOnEvent(MakeMethod(nil,@ButtonClick));
 Run(Applet);
end.

MsgOK('Source = ' + PDFFileName + #$0D#$0A + 'Destination = ' + ImageFileName);