cd_ejecter/sources/cdejecter_gui/data/__history/kernel.pas;17

unit kernel;
{$mode delphi}
{$codepage UTF8}
interface
uses {$IFDEF Windows}windows, shlobj, comobj, ActiveX, registry,{$ENDIF}
     Classes, SysUtils, FileUtil, StdCtrls, Forms, SimplyJSON, LazFileUtils,
     dynlibs, LazUTF8Classes, cde_types, Controls, ANBFormatString;
{stdcall}
procedure UpdateDL (var DL: TStringListUTF8); STDCALL;
function GetDiscInfo (const ADisc: String): TDiscInfo; STDCALL;
procedure CreateShortCut(ShortCutName, Parameters, FileName: string); stdcall;
function GetDesktopDir: string; stdcall;
procedure UpdateLanguage; stdcall;
function ShowMessageBox (const AText: string; const AMessageType: Longint; const AMessageBtns: Longint = 0): integer; stdcall;
procedure CreateDriveRec (const ADrive: WideChar); STDCALL;
function FormatStrUDI (const AStr: String; const ADiscInfo: TDiscInfo): String; STDCALL;
procedure EjectDrive (const ADrive: WideChar); STDCALL;
implementation
uses cde_MainForm, ch_languageform, cde_LinkCreatorForm, cde_DriveAdderForm, cde_disc_frame;
procedure UpdateDL (var DL: TStringListUTF8);
var DLL: TLibHandle;
    GetCDDiscs: function: PChar;
begin
DL.Clear;
DLL:= SafeLoadLibrary('cdejecter.dll');
GetCDDiscs:= GetProcAddress(DLL, 'GetCDDiscs');
DL.Delimiter:= ';';
DL.DelimitedText:= GetCDDiscs;
FreeLibrary(DLL);
end;
function GetDiscInfo (const ADisc: String): TDiscInfo;
var DLL: TLibHandle;
    GetVolumeInfo: function (const ADisc: WideChar): TDiscInfo;
begin
DLL:= SafeLoadLibrary('cdejecter.dll');
GetVolumeInfo:= GetProcAddress(DLL, 'GetVolumeInfo');
Result:= GetVolumeInfo(WideChar(ADisc[1]));
FreeLibrary(DLL);
end;
procedure CreateShortCut(ShortCutName, Parameters, FileName: string);
//var ShellObject: IUnknown;
//    ShellLink: IShellLink;
//    PersistFile: IPersistFile;
//    FName: WideString;
begin
//ShellObject:= CreateComObject(CLSID_ShellLink);
//ShellLink:= ShellObject as IShellLink;
//PersistFile:= ShellObject as IPersistFile;
//with ShellLink do
// begin
// SetArguments(PChar(Parameters));
// SetPath(PChar(FileName));
// SetWorkingDirectory(PChar(extractfilepath(FileName)));
// FName:= ShortCutName;
// PersistFile.Save(PWChar(FName), False);
// end;
end;
function GetDesktopDir: string;
var reg: TRegistry;
begin
Result:= '';
reg:= TRegistry.Create(KEY_READ);
try
 reg.RootKey:=HKEY_CURRENT_USER;
 if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false) then
  Result:= IncludeTrailingBackslash(reg.ReadString('Desktop'));
 reg.CloseKey;
 finally
 reg.Free;
 end;
end;
procedure UpdateLanguage;
var LNGFile: String;
begin
//Application.Title:= GetLocalStrA(0);
with cde_Main do
 begin
 //Caption:= GetLocalStrA(0);
 //DriveListLbl.Caption:= GetLocalStrA(1);
 //UpdateListBtn.Caption:= GetLocalStrA(2);
 //EjectNowBtn.Caption:= GetLocalStrA(3);
 //CreateLinkForEjectBtn.Caption:= GetLocalStrA(4);
 //LNGFile:= GetCDEPath + 'language\' + GetLanguage + '.lng';
 //LanguageNameLbl.Caption:= Format(GetLocalStrA(5), [INIReadString('lng_about', 'lng_name', 'default', LNGFile)]);
 //LanguageTranslatorLbl.Caption:= Format(GetLocalStrA(6), [INIReadString('lng_about', 'lng_author', 'Alexander Babaev', LNGFile)]);
 //LanguageVersionLbl.Caption:= Format(GetLocalStrA(7), [INIReadString('lng_about', 'lng_vers', '1.0', LNGFile)]);
 //ChangeLanguageBtn.Caption:= '&' + GetLocalStrA(8);
 //HomePageBtn.Caption:= GetLocalStrA(10);
 //LanguageBox.Caption:= GetLocalStrA(23);
 end;
with Ch_language do
 begin
 //Caption:= GetLocalStrA(8);
 //OkBtn.Caption:= GetLocalStrA(9);
 end;
with cde_LinkCreatorFrm do
 begin
 //Caption:= GetLocalStrA(24);
 //DrivesBoxLbl.Caption:= GetLocalStrA(25);
 //AddDriveBtn.Caption:= GetLocalStrA(26);
 //RemoveDriveBtn.Caption:= GetLocalStrA(27);
 //CreateLinkBtn.Caption:= GetLocalStrA(28);
 //CancelBtn.Caption:= GetLocalStrA(29);
 end;
with cde_DriveAdderFrm do
 begin
 //Caption:= GetLocalStrA(30);
 //SelectBtn.Caption:= GetLocalStrA(31);
 //CancelBtn.Caption:= GetLocalStrA(32);
 end;
end;
function ShowMessageBox (const AText: string; const AMessageType: Longint; const AMessageBtns: Longint = 0): integer;
begin
MessageBeep(AMessageType);
Result:= Application.MessageBox(pchar(AText), pchar(Application.Title), AMessageType + AMessageBtns);
end;
procedure CreateDriveRec (const ADrive: WideChar);
var DiscFrame: Tcde_disc_frm;
begin
DiscFrame:= Tcde_disc_frm.Create(cde_Main);
with DiscFrame do
 begin
 Parent:= cde_Main.WorkArea;
 Align:= alTop;
 Drive:= ADrive;
 UpdateDriveInfo;
 end;
end;
function FormatStrUDI (const AStr: String; const ADiscInfo: TDiscInfo): String;
begin
Result:= FormatStr(AStr, [
                          '$letter$',
                          '$volumename$',
                          '$filesystrem$',
                          '$serial$'
                         ],
                         [
                          ADiscInfo.diDrive,
                          ADiscInfo.diVolumeName,
                          ADiscInfo.diFileSystem,
                          IntToStr(ADiscInfo.diSerial)
                         ]
);
end;
procedure EjectDrive (const ADrive: WideChar);
var DLL: TLibHandle;
    EjectCD: function (const ADisc: WideChar): Boolean;
begin
DLL:= SafeLoadLibrary('cdejecter.dll');
EjectCD:= GetProcAddress(DLL, 'EjectCD');
EjectCD(ADrive);
FreeLibrary(DLL);
end;
end.