Piesze sobie taka procedure:
library Project1;
uses
SysUtils,
Classes;
{$R *.res}
procedure szyfrowanie(plik,kodzik:string);stdcall;
begin
*tu sie szyfruje plik
end;
exports
szyfrowanie name 'szyfr';
begin
end.
a w programie wstawiam cos takiego:
procedure TForm1.Button1Click(Sender: TObject);
var
DLL : THandle;
proc : procedure;
begin
DLL := LoadLibrary('aaa.dll');
try
@proc := GetProcAddress(DLL, 'szyfr');
if @proc = nil then raise Exception.Create('Bład - nie mogę znaleźć proceudry w bibliotece!');
proc(); *tu nie moge podac tych wartosci jakie deklarowalem w dllce
finally
FreeLibrary(DLL);
end;
Chyba wiecie o co mi chodzi. Zeby procedura z dllki byla wywolywana z parametrem. Wie ktos moze jak to zrobic?
end;
--pozdrawiam PEDROS {hello}
Delphi6