Új hozzászólás Aktív témák

• #970 Diskcopy tag Metalwarrior #969

  Új Válasz 2005-10-16 07:36:35 #970

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Metalwarrior #969 üzenetére

  figy. így nézzen ki az RC fájlod:
  STRINGTABLE
  {
  1000, ''Elso''
  1001, ''Masodik''
  1002, ''Harmadik''
  
  }
  
  Ezt ugye BRCC32 -vel lefordítod.. BRCC32 akarmi.RC lesz belőle egy RES fájlod. Delphinél megcsinálod a DLL-t, file new, semmi egyéb nem kell bele, mint a {$R Akarmi.RES} ha ez megvan, lefordítod.. És most jön a lényeg.. fontos, hogy lássa a dll-t a programod, ha nem jó helyen van, akkor nem fogja...
  beolvastatod:
  
  procedure TForm1.Button1Click(Sender: TObject);
  var H : THandle;
  buffer: array[0..255] of Char;
  
  begin
  H := LoadLibrary('adatlib.dll');
  if h <> 0 then
  begin
  LoadString(H, 1001, Buffer, 255); // Elsot
  label1.Caption := StrPas(Buffer);
  end
  else
  begin
  ShowMessage('DLL betöltés sikertelen!');
  end;
  
  end;
  
  Ha a dll betöltés sikertelent irja ki, akkor nem látja a DLL-t. Hivatkozz rá próbából útvonallal. pl másold be a C:\ alá és akkor a LoadLibrarynál c:\adatlib.dll
  Ennyi. Most csináltam végig, kipróbáltam működik. Sok sikert.
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák