Besten Dank schonmal!
Beim compilieren von dem hier, kommt aber leider noch der Fehler "Operator oder Semikolon fehlt":
Delphi-Quellcode:
library ViseEntryData;
uses
SysUtils,
Windows,
Dialogs;
{$E DLL}
{R *.res}
type
PCViseEntryData = ^TCViseEntryData;
TCViseEntryData =
object
m_hwndMain: HWND;
// Main window handle
m_hwndProgress: HWND;
// Progress dialog window handle
m_bUninstall: BOOL;
// Uninstaller flag
m_lpszUninstallLogFile: PChar;
// Uninstall log file path
m_lpszTempDir: PChar;
// Installer VISE’s temp directory path
m_hinst: THandle;
// Instance handle of the VISE dll
m_szInstallerName:
array[0..MAX_PATH - 1]
of Char;
// Name of the installer
end;
const
nz=#13+#10;
var pViseEntryData: PCViseEntryData;
function ViseEntry(lParam1:LongInt; lpParam2:LPCSTR; dwReserved:DWORD):LongInt;
stdcall;
begin
Result:=1;
pViseEntryData := PViseEntryData(dwReserved);
ShowMessage('
Welcome to ' + pViseEntryData.m_szInstallerName + '
.' + nz
+ '
The temporary directory is ' + pViseEntryData.m_lpszTempDir);
end;
exports
ViseEntry;
{$R *.RES}
begin
end.
Und zwar in der Zeile "pViseEntryData := PViseEntryData(dwReserved);"
Hab ich da was falsch eingetragen?!
Dani H.
At Least I Can Say I Tried