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

• #967 Diskcopy tag Diskcopy #966

  Új Válasz 2005-10-15 21:02:12 #967

  Ú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 Diskcopy #966 üzenetére

  amúgy meg találtam googleon. nézd át.
  
  Function LoadResStr(ident : word) : string;
  
  var H : THandle;
  PS : PChar;
  
  begin
  H := LoadLibrary('YYYY.DLL');
  New(PS, 255);
  LoadString(H, ident, PS, 255); // az ident hatarozza meg a stringet
  LoadResStr := StrPas(PS);
  FreeMem(PS);
  end;
  
  
  [Szerkesztve]

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